ai 
quan 


Z 
SESESESES 


AAMAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AA ABA 
AAA AAA 
AAD AAA 
AAA AA. 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAA AAA 
ABA AAA 


GGGGGGGGGGGG 
GGGGGGGGGGGG 
a cotpiccemernent: 


MMMMMMmMmMmMmMmMmMmmmmmmmmncny 
MMMMMMMMMMMMMmMmMmmMmmmmmncn 
MMMMMMMMMMMMMMmMmMmMmMmmmncn 


**F 1LE**1D**AUTOGEN | ft 
$! 
| $! 

$' 
$! 
$' 
$! 
$i 
$/ 
$! 
$! 
$! 
$! 
$! 
AAAAAA —sUU YU TTTTTTTTTT 000000 GGGGGGGG EEEEEEEEEE NN NN . 
AAAAAA  —sUU UU TTITITTTTT 000000 GGGGGGGG EEEEEEEEEE NN NN 3° 
AA AA UU UU TT 00 00 6G EE NN NN ; 
BA AA UU UU TT 00 00 GG EE NN NN z 
AA AA UU UU TT 00 00 GG EE NNNN NN t 
AA AA UU TT 00 00 GG EE NNNN N $ 
AA AA UU UU TT 00 00 GG EEEEEEEE = NN NN NN ; 
AA UU UU TT 00 00 GG EEEEEEEE = NN NN NN ; 
AAAAAAAAAA = UU UU TT 00 00 GG GGGGGG EE NN = -NNNN | $ 
UU UU TT 00 00 GG GGGGGG EE NN  -NNNN ; 
AA AA UU UU TT 00 00 GG EE NN NN sone 3: 
AA AA UU UU TT 00 00 6G GG EE NN NN an i 
AA AA UUUUUUUUUU TT 000000 GGGGGG §§ EEEEEEEEEE NN NN seit $i 
AA AA UUUUUUUUUU TT 000000 GGGGGG § EEEEEEEEEE NN NN ciety $ 
$ 
$ 
LL eeeeey SSSSSSSS z, 
LL HII] SSSSSSSS $i 
LL I] SS $i 
LL I] SS $c 
LL I] SS $° 
LL I! $$ $ 
LL 1] SSSSSS $ 
LL I] SSSSSS ; 
LL I] SS $ 
LL I] SS H 
LL I] SS ; 
LL 1] SS 3! 
LLLLLLELLL JIIIII © SSSSSSSS 
LLLLLLLLLL III111 SSSSSSSS 
| 
| 
} 


7 
| 
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| 
| 
} 
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IDENT v04-000 


++ 
Facility: AUTOGEN, Automatic System Tuning Procedure 


Module: AUTOGEN 
Abstract: This procedure is a collection of 


subprocedures that 


attempt to configure and tune a VMS ke for a site's 


specific hardware environment and typ 


cal user needs. 


For a description of the subprocedures, see the help 


at the end of this file. 


Author: Peter George 
Created: 01-Sep-1983 
Modifications: 


i 
} 
— | 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 


D 1 
! 
! Save old verification state. 


CONTROL_Y THEN GOTO common_exit90 
*** FSLOGI CAL (AUTOGENSSAVE “VERIFY"") *** »NES. *"' THEN DEASSIGN autogen$save_verify 


OW 
IF 
temp = 
IF “**FSLOGICAL(’‘AUTOGENSVERIFY'')*'' .NES. ‘'"' THEN temp = 1 
DEFINE autogen$save_verify ‘FSVERIFY(temp) ' 


PHAAAAAPAAAAAAOHME 


Check that the input parameters are valid and set the defaults. 


alist = '' HELP, SAVPARAMS, GETDATA, GENPARAMS, SETPARAMS, SHUTDOWN, REBOOT," 
alist =" SAVPARAMS, GETDATA, GENPARAMS, GENFILES, TESTFILES, SETPARAMS, SHUTDOWN, REBOOT,"’ 
“List= ' INITIAL, VSUPGRADE, V4UPGRADE,” 


pl .EQS. ‘‘HELP*’' THEN goto help 

pi .EQS. ‘“* THEN pl = ‘'GENPARAMS'' 
pe .EQS 

p 


1 = 
. . *"" THEN = 
g ~-EQS. *"* THEN PS = PV QUPGRADE" 


ass wh 


eon See OO UD 


" 
ow 
oe | 
o 
aod nd 
oO 


IF FSLOCATE(’' + pti® #",", p'i*_list) .£Q. FSLENGTH(p'i'_List) - 
THEN GOTO start20 
Fi “EO, 3 THEN GOTO start30 


GOTO start10 
art20: 


one = FSEXTRACT(O,FSLENGTH(p'i' List)-1,p'i'_list) ; ; : ms 
ive sys$output "EAUTOGEN-E-1VKEYW, parameter P'',i,"' (",p'i',"’) is invalid. Specify one of: 


; PAAAAAHAAHAAAOHHAGHHAAAHPAAPAOAGSH PAAPAPAPAOSM 


carer 
2D 


ITE sys$output rene Fe 
rte sys$output "‘ZAUTOGEN-I-NOP, AUTOGEN has not attempted to execute any phases. 
tart30: 

IF FSLOCATE(p1,p2_ List) .LE. FSLOCATE(p2,p2_list) THEN GOTO start40 - 
WRITE sys$output "ZAUTOGEN-E-PHASORDER, the start phase (‘',p1,"') must preceed 

WRITE sys$output ' the end phase ("',p2,"'). ‘ 
mite sys$output "‘ZAUTOGEN-I-NOP, AUTOGEN has not attempted to execute any phases. 
start40: 

IF FSPRIVC''SYSP*’) THEN GOTO start50 ns 
WRITE SYSSOUTPUT ‘“ZAUTOGEN-E-NOPRIV, SYSPRV privilege required to run AUTOGEN. ” 
ei sys$output "ZAUTOGEN-I-NOP, AUTOGEN has not attempted to execute any phases. 
start50: 

DEFINE autogen$p1 ‘pi’ 

DEF INE autogensog PS 

DEFINE autogen$p5 ‘p35' 

GOTO "pl o 


PAM MMmmm 


PMN 


Pw 
iO. 


f e b sda aa 


Slee 

$! 

+ Module: Common routines 
$ie-- 

Scommon_abort: 

$ gutt | = ‘abort’ 

$ GOTO ee, mere 

sconmen_s rt90: 

$ GOTO common_exit 


sconmen_ou 

$ WRITE” wa ""RAUTOGEN-E-OPENOUT, "file," 
$ WRIT ns sys$output ‘ P 
$ GOTO common_err 


Scommon_inerr: 

$ WRITE sys$output ""ZAUTOGEN-E-OPENIN, file,” 
WRITE sys$output ‘ 
pconaen, OF sa ae 


ee = 
: CTO “phase* abort 


Scommon 

& OEASsTen. subeeenly’ 

$ DEASSIGN autogen$p2 

:. remap pegeatag 

$ IF 

g penseion autogen$save_verify 
$! 


$common_e 
$ WRITE PO *ZAUTOGEN-I-ERROR, ‘',phase,"' 


or 
WRITE Bhan ““ZAUTOGEN-I-CTRLY, ‘',phase,"’ phase was aborted by a CTRL/Y." 


could not be creat 


ted.’ 
lease correct the problem and then a oe AUTOGEN."' 


could not be read.' 


Please correct the problem and then APE AUTOGEN."’ 


phase was aborted due to an unexpected error. 


common 90: 
PSCOGICAL C"AUTOGENSSAVE VERIFY'') THEN SET VERIFY 


Pw 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 


———— 


\$! 

'$! Module: HELP 
$i 
$i-- 
Shelp: 

$ ON CONTROL_Y THEN EXIT 
$ TYPE sysS$input 


AUTOGEN = Automatic System Tuning Procedure 


AUTOGEN is a system management tool that automatically sets the values of 
system parameters, the sizes of the paging. swapping, and ae files, and the 
contents of the default installed image List based on its evaluation of your 
hardware configuration and typical system workloads. 


, 
To ensure that you have the poperres privileges, invoke AUTOGEN from the system 
| 


manager's account. The format for invoking A TOGEN is: 
@SYSSUPDATE:AUTOGEN Cstart-phase] Cend-phase] Cexecution-type] 
You can enter up to three parameters to designate the AUTOGEN operation you 


a 
desire. Note that all poreyeers are eattonets however, missing leading 
parameters must be replaced by null arguments (i.e., ‘"'). 


The following tables List the phase parameter values and their effects, 
including the files needed as input and the files created or changed for 
output, and summarize the execution types. 


ALL files except VMSIMAGES.DAT reside in the Orettery epost ee by the 
SYSSSYSTEM Logical name. VMSIMAGES.DAT resides in SYSSMANAGER. 


The start-phase must either precede or be identical to the end-phase according 
to the sequence shown in the table (the end-phase defaults to the same value 

as the start-phase). GENPARAMS is the default start-phase; GENFILES may not be 
specified as the start-phase. 


AUTOGEN Phase Parameter Values 


$ 
$' 
$ 
$ 
$ 
$ 
$' 
$ 
$) 
$! 
$! 
$' 
$! 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


Phase Input Files Output Files Function 
SAVPARAMS None OLDSITE*.DAT Save significant old parameters ] 
for propagation and update. 
GETDATA OLDSITE*.DAT PARAMS .DAT Collect all data that will be 
MODPARAMS .DAT required by the GENPARAMS 


FILES. and TESTFILE phases, 


including configuration data, 
old parameters, and 
site-specific items. 
GENPARAMS PARAMS .DAT SETPARAMS.DAT Generate new syste parameters; 
VMSIMAGES.DAT create the installed image List. 


TESTFILES PARAMS .DAT SYSSOUTPUT Display the system page, swap, 
and dump file sizes calculated 
by AUTOGEN. Cannot be specified 
as the start-phase. 


GENFILES PARAMS .DAT PAGEFILE.SYS Generate nev systen page, swap, 
SWAPFILE.SYS and ump files if appropriate. 
SYSDUMP . DMP Cannot be specified as the 
start-phase. 


- 
G6 1 

| SETPARAMS SETPARAMS.DAT AUTOGEN.PAR Run SYSGEN to set system 
arameters specified b 


ETPARAMS.DAT and to generate a 
new AUTOGEN.PAR file. 


| SHUTDOWN None None Prepare the system to await a 
manual reboot. 
REBOOT None None Automatically reboot the system. 


AUTOGEN Execution type parameters 


Type Meaning 
INITIAL Specifies that AUTOGEN is Setng executed as part of an 
initial system installation. The SAVPARAMS phase is 


never executed in this case. 


V4UPGRADE Specifies that AUTOGEN is being executed as part of an 
upgrade from a Version 4 system or that interactive 
ane | is being performed. V4UPGRADE is the default 
execution type. 


V3UPGRADE Specifies that AUTOGEN is being executed as part of an 
upgrade from a Version 3 system to a Version 4 system. 


If, after examining the parameters generated by AUTOGEN, you decide you wish 
to correct hardware Sent \gures an data, modify system parameter values, or 
ee tighh specify sizes for the system page, swap, or dump files, follow the 
steps outlined below. 


1. Edit the file, SYSSSYSTEM:MODPARAMS.DAT. To retain a history 
a leg ? you have made, always add modifications to the 
end o ) e. 


2. Specify new configuration data or parameter values by inserting 
DCL assignment statements of the form: 


parameter = parameter-value ' comment 


3. Specify incremental modifications to parameter values by inserting 
DCL assignment statements of the form: 


ADD_parameter = parameter-value ! comment 


= 
. 


proc tty system file sizes explicitly by specifying the keywords 
PAGEFILE, SWAPFILE, and DUMPFILE followed by an oquat sign and the 
size of the file in blocks. Specifying a value of 0 for any of 
these keywords instructs AUTOGEN not to modify the size of the 
corresponding file. 


“ 
. 


spec if ted in MODPARAMS.DAT will be copied into PARAMS.DAT during 
the GETDATA pnene. and AUTOGEN will make appropriate adjustments 
in its calculations in later phases. 


For further details about how to use AUTOGEN refer to the tuning chapter in 


Rerun AUTOGEN from the SAVPARAMS or GETDATA phase. The modifications 


vee 


ww PHAPHAPAGASA 


th OR A te 


phe ee System Management and Operations Guide. 
x 
$! 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


| Siee J, 

/$! 

e; Module: SAVPARAMS 

$! Abstract: Used in an up qr ede to geve some of a site's old parameter 
$! values. The’ Yites SyS$ ME le: :OLDSITE*.DAT are cre + aie 
$! Note that only Version DCL features = be used 

fi so that this command procedure can run on V3.x systems. 


Pl indicates what type of of data collection to perform. 


NITIAL = Initial system installation. 
TBUPGRADE - Upgrade from a V3.x system. 
V4UPGRADE = Upgrade from a V4.x system. (D) 


$' Initialize this phase. 


Causes ; 

hase = Save ARAMS' 
N CONTROL_Y POnEN GOTO anes abort 

ON —— TREN GOTO common 

pi = PROS TEAL f AUTOS NE PT) 

pe FSLOGICAL (°"AUTOGENSP ¢..) 

p _FSLOGICAL( AUTOGENSP ) 
RITE sys$Soutput "ZAUTOGEN-I-BEGIN, ‘',phase,'’ phase is beginning." 


If this is an initial installation, then skip this phase. 


‘IF p3 -NES. ‘INITIAL’ THEN GOTO savparams10 

WRITE sys$output "“ZAUTOGEN-I- “SKIP, SAVPARAMS phase is being skipped. It is not" 
WRITE sys$output needed when performing an INITIAL installacion."’ 

GOTO Seeger enn, _c Leanup 

savparams 10 


Change error handler to file creation error handler. 
"ON ERROR THEN GOTO common_outerr 


————_—_—_—————— 
| APAAAAAGAHAGHARHAHAHOGHAHAOHOH _ AAAHAAAOAS 
' 

a v 

ao 

=H “ou + 

Qe 

3 

@ 

o 

uJ 
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PAAAPOAA A AHPOHAHEOPOHAHAOHOARAPCOAGRALLBARBRBRBAGEA | 


oe re ee or aes ates 


$! $ 
rt 1 = These parameters are used to generate - ponty of the form $ 
H OLD_sysgenparam which are used to calculate new values. : 
$ $ 
$ RUN sys$system:sysgen § 
use current $ 
set/output=SYS$SYSTEM:OLDSITE! DAT $ 
show gblpages ! # of global page table entries allocated : 
show gblsections ! # of global section descriptors allocated 

show ee ! max # of global pages allowed for RMS global buffers : 
show maxbu ! max size of buffered 1/0 transfer 

show maxprocesscnt ! # of process entry slots 5 
oes virtualpagecnt ! max # of virtual pages mapped per process $ 
ex 

$ 

$! 


file = “‘SYSSSYSTEM:OLDSITE1.DAT” 


— 


$! 
$i 2- These parameters are propagated to the new system if 
$: if the old value is greater than the old default value. 


$ file = 'SYSSSYSTEM:OLDSITE2.DAT" 


$ RUN sys$system:sysgen 


use current 


Set /outoutesYSSsVSTER:OLBS1 TEs .DAT 


show acp_extcache 
show acp_extlimit 
show acp_fidcache 
show clisymtbl 
show defmodxbufquo 
show defmbxmxmsg¢ 
show defmbxnummsg 
show intstkpages 
show irpsize 


show pql_mwsextent 
show pql_mwsquota 
show procsectcnt 
show srpsize 


ie et ee ee ee ee ie ee ee ee 


of entries in the extent cache 
max amount of free space for extent cache 
# of file identification slots cached 
size of command interpreter symbol table 
default for mailbox buffer quota size 
default for mailbox max message size 
27272 not implemented ?7?? 
size of interrupt stack 
size of large ye packets 
def Limit on # of pending ASTs for SCREPRC process 
def tuffered 1/0 count Limit for SCREPRC process 
def buffered 1/0 ayte count Limit for SCREPRC proc 
def direct 1/0 Limit for $CREPRC process 
def open file Cimit for SCREPRC process 
def working set size for S$CREPRC process 
def working set extent for S$CREPRC process 
def working set quota for SCREPRC process 
min Limit on # of pending ASTs for SCREPRC process 
min buffered 1/0 count Limit for SCREPRC process 
min buffered 1/0 ayre count Limit for SCREPRC proc 
« t for SCREPRC process 
min open file Limit for SCREPRC process 
min working set size for SCREPRC process 
min working set extent for SCREPRC process 
min working set quota for S$CREPRC process P 
# of section descriptors that a process can contain 
size of small request packets 


PAPARAARAPAAARAA AAPA AA FAA OF OF OF OF OF OF OF 09 OF 0 09 OF OF OF 7 OF OF OF OF OF 07 07 0 OF 0 OF OF 67 07 07 OF 09 07 09 0 UII ON ED 


- These parameters ore propagated to the new system if 


if the old value is 


“file = "SYSSSYSTEM:OLDSITE3.DAT" 
$ RUN sys$system:sysgen 


use current 


set/output=SYSSSYSTEM:OLDSITE3.DAT 
s prio : 


acp_basepr 
acp_datacheck 
acp_swapfigs 
acp_writeback 
bugcheck fatal 
bugreboot 
crdenable 
deadlock _wait 


extracpu 


Lamapregs 
lLongwai 
maxsSysgroup 


savedump 
scssystemid 
swpfilcnt 
timepr twait 
tycattypane 

yaltypa 
ty_buf 


Y. 
tty_dialtype 
tty_owner 
tty_parity 
tty_prot 
tty_rspeed 
tty_scandelta 
tty_silotime 
tty_speed 
tty_typahdsz 
uvafalternate 
user 
user4 
userd! 
userd2 
x fmaxrate 


ere te te ee ee ee eee ee tt te te te te te te te tee ee ee eee eee 


fferent from the old default value. 


base gh for all ACPs 
enables verification of file struc data read/writing 


' enables ACP susee tng 

! enables deferred writing of file headers 

! enables conversion of nonfatal bugchecks to fatal 
! enable automatic reboot after fatal bugcheck 

! enables detection and Logging of yest ECC errors 
: # of secs that a lock reques 


must wait before the 


system initiates a deadlock search 


! default priority for processes 

! controls oper term reporting of log volume dismounts 
! enables anon on fatal bugcheck 

! time allotted to 


each process exit handler (per mode) 
after the process has cpu time 


! ou 
! # of UNIBUS map registers allocated to LPA11 driver 
! time before ounene" considers a process to be idle 
! highest system 

!' controls oper term reporting of log volume mounts 
' secs that a mount verificatio 

' max # of paging files that can be installed 

' default C 


C group number 
mn attempt will continue 


U time Limit for SCREPRC processes 
default subprocess Limit for $CREPRC processes 
default # of timer queue entries for SCREPRC processes 
min CPU time Limit for SCREPRC processes 

min subprocess Limit for SCREPR processes 

nin # of time queue entries for SCREPRC processes 
reserves # of system page table entries for mapping 
connect-to-interrupt processes into system space 
enables saving of crash dumps 

DECnet node number 

max # of swap files that can be installed 

time to wait for system date/time when booting 

size of alternate type-ahead buffer alarm 

size of alternate Sypen ahead buffer 

default Line width for terminals 

eg | flag bits 

owner UIC ogetnst which terminal protection is checked 
terminal default parity 

default protection for all. terminals wrt TTY_OWNER 
receive speed for terminals 

poiling interval a dial-up and herg=ue event 
interval at which input silo is polled by DMF-32 
default speed for terminal 

size of terminal type ahead buffer 

enables assignment of alternate UAF 

user-specific parameters 


Limit data transfer rate for DR32 devices 


Y PRYOR Ow 


PROM 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


eS PPO 


PRAM 
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M 1 


$! 
$! 4 = These are Version 4.0 parameters that are propagated to the new 


‘ system if the old value is different from the old default value. 


$ IF p3 .EQS. “V3UPGRADE’’ THEN GOTO savparams_cleanup 
$ file = ‘“SYSSSYSTEM:OLDSITE4.DAT' 


$ RUN sys$system:sysgen 
use curren 


t 
set/output=SYSSSYSTEM:OLDSITE4.DAT 


show acp_rebldsysd : 
show alloclass ; 


show lockdirwt 

show prcpolinterval 
show adskinterval 
show adskvotes 


quorum 
show recnxinterval 
show scs e 

show scssystemidh 
show tailored 

show tty_defchar 
show tty_defchar2 
show vaxcluster 
show votes 

show vmsd3 


-— 


determines whether system disk needs to be rebuilt 


determines whether CFJ is loaded with the system 
determines whether a RU journal exists on system disk 
name of an optional quorum disk 


pollint inerval used to look for SCS applications 
disk quorum polling interval 


quorum for a cluster 

ge) Line interval for reconnection to remote system 
CS system name 

SCS system ID —— 

system is tailore ; 

default terminal characteristics 


# of votes of a VAXcluster member 
mag tape time out interval 


PAAAA AA AAA AMMAMM MMA 


t 
$! Cleanup. 
$' 


stevper ene . cleanu 

$ ON FAR OR THEN Goi 

$ WRITE sys$output Pe AOTOGERS! AGNEW ILE: New versions of YESSVATER: :OLDSITE*.DAT have been created."’ 
$ WRITE sys$outpu - to purge these 

ere syssoutput."% UTOGEN=1 “END. Moh ase,! phase has succesfully completed."’ 

1 3 AVPARARS THEN GOTO common_exit 
GOTO getdata 


nm 


i Cleanup after errors and CTRL/Ys. 


savparams abort 

ON CONTROL JY THEN GOTO savparams_abort 

ON ERR OR TREN ¢ ONTINU 

WRITE Ft me to ""RAUTOGEN=I-BADFILE, Bad versions of SYSS$SYSTEM:OLDSITE*.DAT may exist." 
WRITE sys$output We recommend that you delete all versions and start again.’ 

i TO common_‘quit'90 


PAAAAPGAAEC AAAS 


2 Eee 


PAAMMMMMN 


$! 
; Module: 


$ GETDATA 
$' Abstract: This procedure is used to ous tees all the data that the 
$! generation bye 3 BY need one to write ee data to a 
$! user-editable RARS-DAT 1 fi a By. en rements file, 

$! SYSSSYSTEM: PARAM s “st . SOc LyErS the aot ws 

$! eedeate cont ipeet te com of o site opie 

t yalues Boge age n the files SYS SYSTEM: ot ites DAT) 

$ if t an upgrade, and whatever parameters the sys stem 
$i Seesaal may have specified in SYSSSYSTEM: MODPARAMS.. DAT. 


$ Initialize this phase. 


a te 


£v00v0 000 


LETE/symBOL /LOCAL/ALL 
= *'GETDATA™ 


EP TREN GOTO c err 
= FSLOGICAL ("AUTOGENSP am 
= FSLOGICAL (’“AUTOGENSP 

1 coche cee Maeitnce 


DE 
has 
N 
N 
R sysSoutput ‘“SAUTOGEN-I-BEGIN, ‘’,phase,"' phase is beginning." 


f the user doesn't have CMK priv, then abort now. 


FSPRIV("’CMK'') THEN GOTO getdatal0 ; 
TE SYSSOUTPUT ‘‘ZAUTOGEN-E-NOPRIV, CMKRNL privilege required for GETDATA phase.'' 
0 common_err90 


oun 


ee 


PAAAAAAAAAAHAHAHOHON 
oc 


$' Create a file to write the collected data into. 
Seetdete 10: 

file : "“SYSSSYSTEM:PARAMS.DAT’’ 

te a common_outerr data ‘file* 


WRIT 
re be dete vi This data file should NOT be modified. Users wishing to alter the" 
WRI 


wrmrw 


L 3 gute aa data in this file should modify SYSSSYSTEM:MODPARAMS.DAT instead." 
a 


PHARAGVA 


Sad 


PAPMAMMMMMMOM 


PAMMMMM 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


wo 


PAAAAAAAG PMSHHHHMHMMKMMMOYMOwW 


Configure the i/0 devices, just in case it hasn't been done yet. 
If the user has a configuration 
Then, unless told otherwise b 
autoconfigure all devices. 


x1 


xr 


rocedure, invoke it. 
y the value of startup$autoconfigure_all, 


PPLE LLL LL 
esses ee ee 
oxaz ccccccece 
—rm vovvv0v0U 
o aon 
>>r>r>r 


a 


ee ong Syger sti ial dd tle eee "y6'"' ete ty 70"" ete "yg''' 


SER sysS$error nl: 

SER sys$Soutput nl: 
autoconfigure all 

OR THEN GOTO common_err 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


-——- _—— 


dD 2 | 


$' Get system version number, cpu type, and SID using FSGETSYI and writ 
a; that date to the data file. sts — ane wre 


("VERSION") 
=" © Welaitaeis 


) “OR. (cputype .GT. 8) THEN cputype = 0 
E="",cputype 

Dd’) 

sid 


E a 
= FSGETSY 
E da 


ee ‘ card ‘ 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 


ow 


gE @ 


et the physical memory size in pages by parsing the output from the 
HOW MEMDRY command. 7 Abe wha . . 


G 

S 
ON ERROR THEN GOTO common _outerr 
file = “SYS SvSTER:AUTORER Tar” 
DEF INE/USER pyesout ut ‘file’ 
SH 
ft 


(OW MEMORY /PHYSICAL_MEMORY 


ON ERROR hs GOTO common_err 
ile = ‘SYSSSYSTEM:AUTOGER. TMP"’ 
OPEN/READ/ERROR=common_inerr tempfile ‘file’ 


PAHAAAAAAPLAPAAYH 


! Skip to the record that contains the main memory size and then extract it 
$! by searching for the first blank delimited oy after the first left 

$: parenthesis. Write the main memory size to the data file. 

$getdata20: 

READ tempfile record 

hengeh = FSLENGTH(record) 

IF FSLOCATE(’ Main Memory’’,record) .£Q. Length THEN GOTO getdata20 


temp = FSLOCATE(')"’, record) 

record = FSEDIT(FSEXTRACT(temp+1, Length-temp-1,record) ,""TRIM, COMPRESS’) 
size = FSEXTRACT(O,FSLOCATE(” “’, record) ,record) 

WRITE data ‘MEMSIZE="',memsize 

CLOSE tempfile 


Pew 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 


+ 


ome set Pees reese —— 


e 


ae 


' 
' Calculate indicator in the $0 disk speed peced on the Systes disk type. 
' Use the informat =. -* ; e SDCDEF macro to define the possible system 

'‘ disk types. Find o we have and save ts speed. Also store 

' a disk size ladteeter ees 600 blocks is small) 


i The following assumptions are made for known disk types 
' (1 = slow, 2 = medium, 3 = fast, -1 = unsupported or unrecognized disk) 


PHAAAAAAMMOM 


Disk type Disk speed DTS_xxx (1-26) 


1 

! 

: 

i 
$! RA60 4 
$! RAB0 81,82 4 -21,30 1 
$! RBO 1 $< 
$! RB 19 $ 
$! RC26,RCF 26 31,32 $! 
$! RD26 $? $! 
$! RD 1.32.55 1 527,28 $! 
$i RKO6.7 2 1,2 $i 
$! RLOI, 1 at % 
$! st 80 4 §.] 13 $ 
$i RPO4,5.6,7,7HT 4 4.5.7.8 | & 
$i R201.R2iF O01 2 28,34 | $ 
$! RxX01,2,4 -1 16,11,12,26 
$i ML11,T tos -1 17,14 $ 
S$ speed_List = °=1,2,2,6,6,46,6,6,.46,1,1 191 Game b elem leh he Gece to letlelelelrSs2ve $ 
$ diskspeed = -1 $ 
$ temp = FSGETDVI(''sys$sysdevice” ~DEVTYPE") $¢ 
$ IF (temp .LE. 32) .AND. (te one o- $ 

THEN diskspeed = = FSELEMEN (temp,"","", speed_List) $ 

$ idisk = ‘‘false”’ $ 
SGETDVI(''sys$sysdevice’’,"MAXBLOCK’') .LE. 53000 THEN smalldisk = ‘‘true’’ : 
$ iskspeed .NE. *1 THEN GOTO pe $ 
$ E sys$output = PMUTOSEN YUN DISK, unsupported sytten disk type. Using speed and" $ 
$ E sys$output ' size characteristics of an RKO7.' $ 
$ peed = $ 
. disk = “false $ 
$9 a30: , $ 
$ ata \ DISKSPEED="",disks > Pe $< 
: ata ‘“SMALLDISK="""",smalldisk, : 
" Hi 


—_—— | i 


G 2 


ount the number of devices of each class on the gee and write that 
nformation tc the data file. Use the SHOW DEVICES command to get the 
List of all the devices on fhe system, since there is no other way 

to wildcard through the devices. 


ERROR THEN GOTO common_oute 
ie 
Fl 


= *SYSSSYSTEM: AUTOGER. THE 
NE/ USER sxstoutput *file’ 
VICES/BR 


DE 
RROR THEN GOTO common 
- *“SYSSSYSTEM: AUTOGEN. TMP" 


‘ON 
fil 
DE 
SHOW 
" 
OPEN/READ/ERROR=common_ inerr tempfile ‘file’ 


E 
ile 
EN 


ARAPAAAAAAORHAOOOLR 


$' Use the information in the SDCDEF macro to define une Be fe pyete 
$! device classes. Initialize the device counts. NUM_CI and NUM_E HERNET 
3; are fake device classes created and used locally by autogen. 


. 66,.67,96,128,160,161,200,ag1 1392" 
$ dc“names = Ise i ry 63,66 CARD, TERM. LP, REALTIME ,BUS,' 
"MAL Look SOUAMAL mists Cl, OE THERNE 


.o 

Sgetdatad0: ae 

$ number = FSELEMENT(i -dc_numbers) 

t IF number .£0S. '',"’ THEN GOTO getdata5S0 
§ name = PSECEMENTCL,""".de- names) 

$ dc_ “number = name 

t ‘mame’ = 0 

$ i=i+¢1 

: GOTO getdatasd 


$! 

$! Loop reading data from the SHOW DEVICES output. Skip Lines that don't 

$! contain a device name. Increment the appropriate device class count les 
$! each device that is found. 


$! 
$getdatasoO: 
$ READ/END_OF [ipFogetdares? a, FRLENG record 
4 IF FSLOCATET’: ecord) EO FOLENGTN record) THEN GOTO getdata50 
$ ‘" ice = FSELEN NT(O,"*:° ord) - 
$ If .NOT. FSGETDVI (device, "ExtsTS") TREN” GoTo getdatas0 
$ devclass = FSGETDVI( Coy ice "*DEVCLASS 
$ If FSTYP Pye” $e de -E0S. THEN devclass = 200 
$ temp = + & oo 
$ ‘temp temp’ + 2 
$ IF tem mp * £08. ‘NUM_BUS 
THEN IF (F $GEIDUI (device, DEVIYPE') -EQ. 1) .OR. = : DT _c1780 
(FSGETDVI(device,’DEVTYPE’’) .EQ. 2) - ! DT$_C17 
THEN num ci = num ci +1 
$ I foep -EQS. ° 
THEN IF (F $6 1001 (dev ice," DEVTYPE’) -EQ. 14) .OR. - |! DTS_DEUNA 
(FSGETDVI (device, ‘DEVTYPE’’) .EQ. $8} -OR. = |! DTS_DEQNA 
(FSGETDVI (device; DEVTYPE'’) -EQ. 4 : - ! DT$_DELUA 


VaEN num_ethernet = num_ethernet 
GOTO getdatas 


etdatas9: 
CLOSE tempfile 


H 2 
' If the number of terminals erent oyt to be less than expected by the 
ollowing eng Ly te ty coleu ation, then increase the number 9 
' terminals to that minimum. This test is used to cover the possib lity 
! that the machine we are looking at is an unterminaled node in a cluster 
'‘ or employs s sort of terminal concentrator that hides the terminals 
: from our scrutiny. 


PHRHMMMOM 


$i num_term = 8 * memsize (in megs), Limited by a cpu specific number 


ei cpu number cpu name # of terminals 


$! 0 unkreys 10 
$! 1 80 1 
$! ; 750 

$! 730 5 
$! 4 790 250 
$! 5 8SS 100 
$! 6 8NN 250 
$! 7 uv1 § 
$! 8 uv2 


$! 
temp! = *"100,100,50,25,250,100,250,1,1'" 
temp! = ESELEMENT (cputype tempi) 

temp = (6 * memsize) / 2000 

IF temp] .LT. temp THEN temp = temp! 

IF num_term .LT. temp THEN num_term = temp 


Write the device type counts into the data file. 


PHAPRAAAHPHEAOM 


$iz-=0 

$getdataé60: 

$ name = FSELEMENT(i,"’,"’,dc_names) 

4 IF name .EQS. '',"' THEN GOTO getdata69 

. WRITE data *“‘NUM_"*,name,*'="",num_ ‘name’ 
= 

; GOTO getdata60 


Sgetdata69: 
$! 


www 


1 2 


Determine how much of nonpaged pool is petng used * 3 device drivers. 
: Use SYSGEN SHOW/DRIVER command to get the List of all the drivers on the 
! system and how much memory each uses. 


"ON ERROR THEN GOTO common_outerr 
file = ‘‘SYSSSYSTEM:AUTOGENR. TMP" 


PROM 


RUN syeteveren: 379900 
t/output=SYSSSYSTEM:AUTOGEN. TMP 
ferer ver 


° 
ON ERROR THEN GOTO common_err 


xz7® 


Skip past the first two Lines in the output file. Then, for each Line 
in _ file, increment the running total by that driver's consumption of 
! pool. 


“file = 'SYSSSYSTEM:AUTOGEN. TMP" 

OPEN/READ/ERROR=conmon_inerr tempfile ‘file’ 
~ tempfile record 
d 


EAD tempfile record 
river_npagedyn = 0 


$i Loop reading data from the SHOW/DRIVER output. 


PHAAAPHARAAAPAHAHKD VY VY CHHES 


$! 

$getdata70: 

$ READ/END_OF _FILE=getdata79 tempfile record 

$ record = FSEDIT(record,’ TRIM, COMPRESS ,UPCASE'’) 

$ temp = FSELEMENT(O,"* ‘', record) 

§ IF (temp .€QS. OPERATOR) .OR. (temp .EQS. "'NL') .OR. - 
(temp .£QS. ‘MB’') THEN GOTO getdata70 

$ driver_npagedyn = driver mpaged n+ X"FSELEMENT(2,"° *,record)' - - 

Zx*FSELEMENT(1,"" "', record) 

. goto getdata70 

$getdata79: 

$ CLOSE tempfile 

; WRITE data *DRIVER_NPAGEDYN="',driver_npagedyn 

$! 


J 2 


Define the symbols DECNET, CLUSTER, and JOURNALING to be booleans indicating 
the state of the system. 


‘decnet = "false 

cluster = “true” 

F (numiscom + numici) .NE. 0 THEN decnet = ‘‘true’’ 
= 


‘false 
! #*JNL** Should be journaling = cluster 


r 

TE da NET=*""i,decnet nnn 
TE data ‘'CLUSTER="""",cluster,"""* 
TE data ‘‘JOURNALING= ee F ournal ing,” - 


PRAAAAPMAPMHMMMMMH 
_ 


AA OS OA 


PAHAARAAPAAMAALENM 


. 4 
! 
$! If we are doing some sort of an upgrade, then get the old sysgen parameters; 
$! otherwise, we are all done. 


“IF p3 EQS. “INITIAL' THEN GOTO getdatal20 


i Write out values for those parameters from the system being upgraded 
that are of informational use. 
i 
P 


file = ‘’SYSSSYSTEM:OLDSITE1.DAT’’ 
EN/READ/ERROR=common_inerr tempfile ‘file’ 
WRITE data “*! Parameters specified in ''. file 


getdata80: 
READ/END_OF FIL 
record = psepit 


PAAPAAAHHMHM 


PMMA 


getdata89 tempfile record 
ecord,’ COMPRESS, TRIM’) 
0,1,record) 
‘OR. temp .GTS. "'Z'' THEN GOTO getdata80 
9,record) -EQS. ‘‘Parameter'’’ THEN oro gerdane 0 


* FSELEMENT(O,"* “,record),''="",FSE . *',record) 


PAAAMHH 
. 
- 
nw“ 
e 


GOTO getdatas 
getdata&9: 
CLOSE tempfile 


Write out values for those parameters from the system being upgraded 
that should be preserved because they are greater than the new defaults. 
i 

P 


le = “‘SYSSSYSTEM:OLDSITE2.DAT" 
EN/READ/ERROR=common_inerr tempfile ‘file’ 


f 
0 
WRITE data **! Parameters specified in "', file 


PHAAPRAAAHAHAHMHHHM 


S$getdata90: 

$ READ/END_OF FILE=getdata99 tempfile record 

+ record = FSEDIT(record,’ ‘COMPRESS, TRIM’) 

4 temp = FSEXTRACT(O,1,recor a 

$ temp .LTS. "A" .OR. temp .GTS. "'Z"' THEN GOTO getdata90 

$ IF FSEXTRACT(O,9,record) .EQS. ‘‘Parameter’’ THEN GOTO getdata90 

$ IF FSELEMENT(1,"" *,record) .GT. FSELEMENT(2,"" ,record) = 
THEN WRITE data FSELEMENT(O," ', record), “="",FSELEMENT(1,"" ", record) 

: GOTO getdata90 

S$getdata99: 

: CLOSE tempfile 


Write out values for those parameters from the system being upgraded 
that should be preserved because they are different from the new defaults. 


delimi =‘"""* 

delim2 x eeges 

file = ‘"SYSSSYSTEM:OLDSITE3.DAT"’ 
OPEN/READ/ERROR=common_inerr tempfile ‘file’ 
WRITE data **! Parameters specified in ‘',file 


tdatal00 


PAARAAAGHOOH 


ey 
— 
rp) 
m 
> 
o 
~ 
z 
mo 


FILE=getdatal09 tempfile, record 
rirecar » COMPRESS, TRIM") 
RACT(O,1,rec1) ee 

. A" cOR. temp .GIS. "2" THEN GOTO getdatal00 
(0,9,recl) .€QS. ‘Parameter’ THEN GOTO getdatal00 


UY tog 


4 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$| 
$ 
$' 
$ 
$ 
$ 
$ 
$! 
$! 
$' 
$ 
$ 
$ 
$! 
$ 


AAR AAR AAA 


$ IF ESL OSATE (det jal. -record) ME FSLENGTH(record) THEN goth o¢ getdere 9? 
$ IF FSLOCAT Payee amacrecord) NE. ESL awetusracard) THEN GOTO getdatal06 
$ IF FSELEMENT(I, NE. FSELEMENT (2, reci) = 

THEN URITE gata FSELEMENT(O,” "srecl) "=", FSELEMENT(1,"" "",rect) 
$ GOTO getdatal0 


$ 

$getdatal05: 

$ IF FSELEMENT (1 ree ye | record) .NES. F$ LERENT.CS. delimi,record) - 
THEN WRITE data F SELENEN 159 ». etee 


FSELE delim, salads. foun 
. GOTO getdatai00 


$getdatal0é6: 

$ IF FSELEMENT(1 aol tag record) .NES. FSELEMENT (3, edelin2, record) - 
THEN WRITE data FSELEMENT(O,” ECT ee a 

FSELEMENT ( "sei la record) ,“""" 

: GOTO getdatal00 


$getdatal09: 
$ CLOSE tempfile 


$! 
$! Write out values for those V4 parameters from the system being upgraded 
$! that should be preserved because they are different from the new defaults. 


I +s -EQS. *VV3UPGRADE"’ THEN S070 getdatal20 
fi “SYSSSYSTEM: OLDSITE4.D 

$ OPEN/READ/ERR OR=common_ ny Sean tite ‘file’ 

$ WRITE data ‘'! Parameters specified in "', file 


etdatail0: 

READ/END OF FILE=getdatal19 tempfile record 

reci = FSEDTT (record, ‘COMPRESS, TRIM'') 

temp = FSEXTRACT(O,1,recl) aoa 
emp .LTS. "A" .OR. temp .GTS. “'Z"* THEN GOTO etdatallo, 
SEXTRACT(O,9,reci) .EQS. Parameter’ THEN G » gotestat 
SLOCATE(delimi,record) .NE. FSLENGTH(record) THEN GOTO seedetel1$ 
ra Pe Ee “NE. sokewer es nehre: Be GOTO getdatall6 
SELEMENT(1."” “srect) NE. FSELERENT (2, 


wow 


Sad citeitnattiniiecina thal 
—n TH Nee 


getdata 


AV 


115: 
IF FSELEMENT(1,delim1 record? NES. AFSELEnENT (5. deliml,record) - 
THEN WRITE data FSELE TO,” rect), ene 
PSELEMENT CT det ier: record), 
$ GOTO getdatal10 


S$getdatal16: 
$ IF FSELEMENT(1 delim2record) .NES. FSELEMENT(3.delim2.record) 
THEN WRITE data FSELEMENT(O," rect), ae 
FSELEMENT (1 det ims, record), 
: 60TO getdatal10 


$getdatall9: 
$ CLOSE tempfile 


$! 


PAPA AMA AAA MA AAA EAA AAA TAA AAPA AAR Or 


M 2 


$! 

$: Write out values for those parameters that the system manager has specified. 
$getdata 

vi VESSEARCuceyspgvsTeM moppanans DAT") -EQS. *"’ THEN GOTO getdata150 
$ OPEN/READ/ERROR=conmon inerr Fonetite "fil 

:* RITE data ‘'! Parameters specified in ate 

$getdatal30: 

$ READ/END_OF Bencrgeheeetelar tempfile record 

$ WRITE data fre ecord 

: GOTO getdatal50 

$getdatal39: 

: CLOSE tempfile 

$! 


PAHAAAAA AHAGHAHAGHAGAAGA APGPPAHGHAGHHA HOFHGHEHHGHA LEFHKHFKEORNGM CREFKHKKEFRVNVVCNM 


! 
$i Insert warning into the data file. 


$getdataiSO: 

WRITE data *"! 

E data ‘"! This data file should NOT be modif 
4 data vy. data in this file should modify SY 


YST 


=m 


lter the’ 
nstead.'' 


PF AAAMAPAMMMHMMMNMMFNNSM CKKKVNMMNOOw 


! 
$! Clean up extra files and exit. 


Sootdeta cleanup: 
ON ge Dl ee GOTO common_err 
a 
TE ihe pas “TZAUTOGEN~I-NEWFILE, A new version of SYSSSYSTEM:PARAMS.DAT has been created." 
TE oe $output You may hy to purge this file. 
INE/USER eveterrer nl: 
Yate sysS$output nl: 
LETE sys$s any auto af tmp 
ITE sys$oul "ZAUTOG EN-] TeEND, *",phase,'’ phase has succesfully completed." 
ie ETDATA THEN GOTO common_exit 


£ovoo oO 
Smmmo oe 
oO 
- 


orb 
OT genparams 


PHAAAMMMM MMM = tad 
au 


$! Cleanup after errors and CTRL/Ys. 


$getdeta abort 

$ ON CONTROL_Y Y THEN GOTO getdata_abort 

$ ON ERROR TREN CONTINUE 

SE/NOLOG tempfile 

LOSE/NOLOG data 

INE/USER sys$error nl: 

INE/USER sys$output ms 

ETE sys$system: PAUTOGE 

TE sys$Soutput ' TOGEN 1 TOBADFILE, Bad versions of SYS$SYSTEM:PARAMS.DAT may exist." 
TE sys$output * We recommend that you delete all versions and start again. 
0 common_‘quit'90 


PAAAAANOS 


PPMMMMMH 


PAAAAAMAMAMAMMMAMMMHOMMMMMMMMWM 


ee Se ee ee ee ee eee a ee 


$i++ $: 
$: $| 
$i Module: GENPARAMS 3; 
$' Abstract: This procedure generates new sysgen parameters and (optionally) 3; 
$! anew list of VAS images tc install. The site-specific $i 
$! requirements file SYSSSYSTEM:PARAMS.DAT is the only input. $i 
$! The command prececurs SYSSSYSTEM:SETPARAMS.DAT and the images $i 
$! data file SYSSMANAGER:VMSIMAGES.DAT are the outputs. | $i 
$!-- | |g 
$i $: 
$i Initialize this phase. | 3 
Scenparams : 
$ DELETE/SYMBOL/LOCAL/ALL $ 
$ phase = ‘‘GENPARAMS”’ 

$ ON CONTROL _Y THEN GOTO common_abort 3, 
$ ON ERROR TREN GOTO common err $i 
$ pl = FSLOGICAL(''AUTOGENSPT'') $i 
$ bg = bape d te ead bies de oY $i 
$ P = FSLOGICAL('‘AUTOGENSP3'*) $i 
: RITE sys$Soutput “"ZAUTOGEN-I-BEGIN, ‘',phase.,"' phase is beginning." $i 
$! $! 
ei Get system configuration data from SYS$SSYSTEM:PARAMS.DAT. 3; 
$ file = 'SYSSSYSTEM:PARAMS.DAT" $: 
: OPEN/READ/ERROR=common_inerr params ‘file’ 3; 
$genparams10: $ 
$ READ/END_OF __FILE=genparams19 params record $ 
$ ‘record’ $ 
: GOTO genparams10 z, 
$genparams19: $: 
: CLOSE params 3 
$! $! 
+ Issue warning message if PARAMS.DAT file does not match the current system. 3; 
$1 $ 
% WRITE sys$output ‘“ZAUTOGEN-W-SID, SID register indicates that GETDATA phase was per formed'’ $ 
$ WRITE sys$output “ on a different hardware configuration. GENPARAMS proceeding. $ 
$genparams20: : 


Pw 


F FSGETSYIC'’SID'’) .EQ. sid THEN GOTO genparams20 
| 
| 
} 


d 3 
DEF HP eee eee eee H StH H HEHEHE SH FSS HFSS SSH EHESHF HSH HE SHEESH HSH See ese eet 
! 


$! Calculate values of bysgen parameters. If a sysgen pereneter is already 
$! defined in PARAMS.DAT, then the new calculated value is typ cally nored 
$! in favor of the explicitly specified value. However, this specified value 
$! oey be eu ioct to one or more restrictions (which generat ty appear in the 
e; following the command that includes an FSTYPE call). 


Sie eee sees este ee bh GE EEE EEE GEESE EEEEEEEEEEESEEEEEEEEESEEEEEEEEEEEEESS 
$! 

3; Calculate MAXPROCESSCNT 

3; Require: Nothing 


Si oeeeeseees 
' 


$! MAXPROCESSCNT = number of process entry slots allocated. Calculate 
$! the value based on the hardware configuration and the 

$! system configuration options specified. Then round the 

$! total off to a multiple of 5. If it is greater than 50, 

3; then round it again, to a multiple of 10. 


$! ALWAYS: 

$! required system processes - NULL, SWAPPER, ERRFMT, JOB_CONTROL, and OPCOM 

$! user processes (a guess) 1.1 * (the number of terminals) 

$! device specific processes - : = factor for unexpected files-11 or user ACPs 
= s 


$! assume one print symbiont, eoougs it i 

$! up to the system manager to decide how many 
$! (up to 16) Br ators he assigns per symbiont 
$! one mag tape ACP for every 4 tape drives 


$! IF DECNET: 
$! required DECnet processes - NETACP, REMACP, EVL, and a fudge factor of one 
$! user processes (a guess) -=- (the number of terminals) / 20 


$! IF CLUSTER: 
$! required cluster processes - CONFIGURE and CLUSTER_SERVER. 


$! IF JOURNALING: 
+ required journaling processes - JNLRCP and JNLACP. 
emp = 7 + num_term + (num_term/10) + (num gape + 3)/4 
F decnet THEN temp = temp + 4 + (num_term720 
F cluster THEN temp = temp + 2 
F journaling THEN gomp = temp + 2 
emp = ((temp + 4)/5) * § 
temp .GT. 50 THEN temp = ((temp + 5)/10) * 10 


FSTYPE(old_maxprocesscnt) .EQS. ‘"" THEN old_maxprocesscnt = 0 
FSTYPE(maxprocesscnt) .NES. ‘"’ THEN old_maxprocesscnt = 0 
FSTYPE(maxprocesscnt) .EQS. ‘"’ THEN maxprocesscnt = temp 

maxprocesscnt .LT. old_maxprocesscnt THEN maxprocesscnt = old_maxprocesscnt 


FSTYPE(add_maxprocesscnt) .NES. 
THEN maxprocesscnt = maxprocesscnt + add_maxprocesscnt 


PF FAHAHAAAAAAAAAPAAAPAAPAFAAHVONS 


—_—_—— 


$! isadkendenehdaskendiuunndintiiliianhentunkdabesbeaasidbtdahnititestnie 
! 

oj Calculate VIRTUALPAGECNT 

Hi Require: Nothing 


Sl eeeseeeeee 
' 


$i VIRTUALPAGECNT = max number of virtual pages that can be mopped 
$! for “y one process. Set to memory size + 5000, with a 
i lower Limit of 8192. 

“temp = memsize + 3000 

IF temp .LT. 8192 THEN temp = 8192 


are the number we just calculated to the old value and use the Larger 
umber . 


n 

F FSTYPE(old virtualpagecnt) .£QS. ‘"' THEN old i beets gee = 0 
i FSTYPE(virtualpagecnt) .NES. ‘"’ THEN old_virtualpagecnt = 0 

F 
F 


g 


egTeee tv trcuslpepeent) -EQS. ‘"’ THEN virtualpagecnt = temp 
virtualpagecnt . 

FSTYPE(add_virtualpagecnt) .NES 4 

THEN virtualpagecnt = virtualpagecnt + add_virtualpagecnt 


PHRAAPRHAEHHOS 


bad 


Ts old_virtualpagecnt THEN virtualpagecnt = old_virtualpagecnt 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
b 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
i 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


je 
DFE S eee ee SSeS SSS SESS ESSE EE EEEEEEEEEESEEESEEEEEEEEESESEEEEEEEEEEE+ESHEEEOS 
' 
$: Generate VMASIMAGES.DAT. 
.; Require: MAXPROCESSCNT. 


Gi eeeeseeees 
' 


$! 
$: Execute the GENIMAGES step. 


$ IF CrOryey yee tnopes. gbipages) .£QS. *"") .OR. = 
E(vms images_gb sections) “EUS: d- 
THEN GOTO genimages 
sgen images. return: 


$' Count the total number of global peges and sections that we need 
$! for the images that we are installing in VMSIMAGES.DAT. 


‘tgblpages = 0 
tebleertions = 0 


IF (FSTYPE(vmsimages_gblpages) .NES. ‘"") .AND. = 
(FSTYPE (vms meges. _gbisections) .NES. ‘"') = 
THEN GOTO genparams 


file = ‘“SYSSMANAGER:VMSIMAGES.DAT"’ 
OPEN/READ/ERROR=common_inerr images ‘file’ 


POO HU 


PRO 


& 

Sgenparams 30: 

$ READ/END Ane nok mat 1A images recers 

$ IF PEXTRACT( l,record) .EQS ** THEN bro 0, ,gonparans50 

& record = FSEDIf(record, TRIM COLLAPSE. UPA 

$ IF PSLOCATEC 7 SHARED af records ares PSLENGTNirecord) THEN GOTO genparams30 
$ record = FSELEMENT(1,"!"’.recor 


tgblsections = tgblsections ¢ FSELE EMENT(O,"'/"', record) 
tgbipages = tobtpages + FSELEMENT(1,'"'/"', record) 
TO genparams50 


arams39: 


. SE images 


PRAPAPAAAS 


2 
te 
a25 ©. 


oe 


arams35: 
PPSTYPE (ums images. gblpages) .NES. ‘”* THEN Ege \papes = vmsimages_gblpages 
FSTYPE (vmsimages_ gbl sections) «NES. *"* THEN tgblsections = vmsimages_ eplsections 


PAM 


PH AHAPAAAAPHFAAA PHAOVERHAHAEEFASHA CKEKHHKGVHEFEVLYVEVYVNH 


6 3 
DE FFe esses ee SESS S SESS SSS S EE SSESHESESEEESESEEESEEEEEEESEEEEEEEEEEEE++OEOS 
' 
sj Global page and section parameters. 
$: Require: VMSIMAGES.DAT data. 


Siseseeseees 
' 


$i sachin ad ss mp number of global g89E table ps te allocated 
Loe uffers. Use the old value, or an 
ty y specified value, whichever is greatest. 


ie = ioe8 

IF jks E(old sgbipagtit ue 5 ERR nen ele old_gblpagfil = 0 

IF FSTYPE(gbipagfil Se vw + ff ofd obi pegttt = 0 

IF eT yee cep pegtt ty fos: y x lp tet L = 1024 

IF gb Lpa pftt LT. old pblpe fil rhe Ned “pest tt = old sPipoe gfit 

IF FSTYPE(add_gbipagfTl) .NES. °” gblpagfil = gblpagfil + add_gblpagfil 
Seeeeeeeoes 

' 

: GBLPAGES = Number of global page table entries allocated at boot time. 
: Start with the total of global pages that we need to take care 
: of installed VMS images, add in global pages for RMS’ use, add 
: add another 2500 pages for general use, and then round 
everything off to a multiple of 100. 

tgblpages = tgblpages + fil + 2500 

teblpanes = ( + sy colin $859) / 100) * 100 


| numbers the number we just calculated to the old value and use the Larger 
r. 


F 

F 

F 

re Pema oe 

rStve P (aga UY; old_gple oNES. ° eT HEN gblpages = “ab pages + add_gblpages 


CELESCT ERS - Number of global sections allocated at boot ties. 
Start with the total of grobel sections that we need t 
tenty care of installed VAS images and then add Pins. °100 
sections for generes use and round everything off to a 


multiple of 1 
‘tgblsections = tgelsect tons + (t blsections 4/3) + 75 
,tgblsections = ((tgblsections + 5) / 10) * 10 
i Conpere the number we just calculated to the old value and use the Larger 
n Po 
IF FSTYPE(old_gblsections) EDS. | one old zpdl sections = 0 
IF FSTYPE(gblSections) .NES. ‘" old_gblSections = 
IF Ad bead blsections) .E0S. = THEN a blSections : tgblsections 
IF 9 blsections .LT. old “gblsections T EN gblsections = old_gblsections 
IF FSTYPE(add_ blsections) .NES. 


THEN gblsec ions = gblsections + add _gblsections 
'eeeeooee 


KFILSTCNT = Number of known file List heads. One is needed for 
each set of installed images with a different combination 
of device name, directory name, ond file type. Sixteen 
seems Like a good guess. 
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nt = 16 


stent) ° N_kfils 
Ritstent) «NES. tt THEN ciitstent = kfilstcnt + add_kfilstcnt 
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‘ 
$! Request packet parameters. 
$: Require: MAXPROCESSCNT 


Si eeeeeesese 
! 
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$ SRPSIZE - Size in bytes of small request packets 


IF FSTYPE(srpsize) .EGS. *"* THEN erpsize = 96 . 

IF FSTYPE(add _srpsize) NES. THEN srpsize = srpsize + add_srpsize 

+ eae 

$! wectroeven” - oo ans 3 preallocated small request packets 

¢; per process + 1 per device. 

$ IF ee -EQS. ‘"' THEN srpcount = 200 + (maxprocesscnt * 7) + = 
= weit + num_tape + num_scom + num_card + num_term + num_lp + = 


wow PAAAAOM 


ealtime + num_bus + hum mailbox + num_journal + num_misc 


$ If FSTYPE Tadd _srpcount) “NES. ‘“" TREN srpcount = srpcount + add_srpcount 
+1 ree pi 


Lesieeasscey - Max size to which SRPCOUNT can be increased. 
Use 4 * SRPCOUNT, but require a minimum of 350. 


AO 


——- 


| 
| 
Peem ho 3S THEN t 350 
FSTYPE (srpcountv) EOS” "" THEN srpcounty = temp 


STYPE(add_srpcountyv) .NES. THEN srpcounty = srpcountyv + add_srpcountv 
FOoooeese 


IRPSIZE - sar ae in bytes of intermediate request packets 
A SYSGEN PARAMETER = SPECIFIED HERE FOR SYMMETRY. 
FSTYPECirpsize) .EQS. ‘"* THEN Nepe}se = 196 


F 
F FSTYPE(add _irpsize) -NES. ‘"* THEN irpsize = irpsize + add_irpsize 
Fete eer ee 


‘@ enone 
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IRPCOUNT - Nuaber of preallocated intermediate request packets 
Set 100 + 6 per process. 


PAHPM 
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FSTYPECirpcount) .EQS. "" THEN irpcount = 100 + (maxprocesscnt * 6) 


F 
F FSTYPE(add_irpcount) .NES. THE lepcount = irpcount + add_irpcount 
FOeeeeeee 


‘@ even 


meee * ~ - size to which IRPCOUNT can be increased. 
* JRP COUNT" but require a minimum of 200. 


PRAMAS 


2! 


‘fone hy 50450 te t 
ie ce Petpet ipeounecs eos. ra TREN irpcounty = temp 
See 


FSTYPE (add _irpcounty) -NES. *"* THEN irpcounty = irpcountyv + add_irpcounty 
teeeeeeoe 
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LRPSIZE - Size in bytes of large request packets. Use 1504 when the 
XED at is the only communications driver present on the 
system. 
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| 
un, gcom.¢ num. us) THEN temp = 1504 | 


THEN rps ze = temp 
* THEN Lrpsize = Irpsize + add_\rpsize 


eea 


=4 Roy “EOS. 
_\rpsize) .NES. 


Sl eeeeeesees 
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$i LRPCOUNT - “ier of preal located {ange request ackets 

or general use % e- or each communications 
3; device. we have Little nemory, restrict to 24 overall. 
$ 


+- 
um wt ee * 4) + ((num_scom “Bhs 2. ; 12) +- 
num_¢ ((num_cT NE 

ze .LT. O68 | AND. hemp, 6 2 THEN temp = 24 

E(Lrpcount) .£0S.' TREN L recount = temp 

PE(add_irpcount) .NES. THEN Lrpcount = Lrpcount + add_lrpcount 


monn e aN 


canteens, * - Max size to which LRPCOUNT can be increased. 
e 4 * LRPCOUNT, but require a minimum of 60. 


= & 

F'tene trpgoun 60 THEN tone = £0 
$T WpEUrpcountv) -E THEN Lrpcounty = temp 

YPE(add_lrpcountv) .NES. ‘"’ THEN Lrpcounty = Lrpcounty + add_lrpcounty 


Pw 
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' 
3; Non-paged pool parameters. 
sj Require: MAXPROCESSCNT 


$i seseseeess 
$i 


$i LOAD_CODE = Internal variable indicating the total number of pages 
$! of exec code loaded into nonpaged pool. 


$i REQUIRED: 
$! SYSLOAxxx. EXE 25 


$i IF JOURNALING: CJFLOA.EXE 99 
$i RUFLOA.EXE 20 
$i IF CLUSTER: CLUSTRLOA.EXE 41 
$i SCSLOA.EXE a 


$! 

load_code = 

If jeurnaling, THEN load_code = load code + 99 + 20 
IF cluster THEN Load_code = load_code + 41 + 8 
1444444404 


NPAGEDYN = fize of myneneee Synante pool in bytes. Take the 
foll at + A soier actors into + eS drivers ergcesnes 
locks), terminals (TTvYuCcB + .§ TYPAHD), other 
Sota ‘tote), “loadable code, and A 5 1/0 data structures 
and files we. © ’ 


“IF te Nes yey 20s. * 
THEN npagedyn = driver pire" +- 
(maxprocesscnt * (5% + 102 + 200 + 512)) += 
(num_term * (308 + 400/2)) + 
((num_disk + num_tape + num_ car rd+- 
a. lp +"num_realtime + num_bus + - 
um_journal * num_misc) * 150) + = 
(Load_ code 2 12) += 
(num_Scom * 2000) + - 


$ IF FSTYPE(add_npagedyn) .NES. ‘"’ THEN npagedyn = npagedyn + add_npagedyn 
Sleeeseeeoes 


$! 
$! micas” ~ hy x ze to ates NPAGEDYN can be increased. 
$ * NPAGEDYN 
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$! 
$ IF este ooasevin ;EQS. *"* THEN sepnseute = npagedyn * 3 
: IF FSTYPE(add_npagevir) .NES. HEN npagevir = npagevir + add_npagevir 
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$i 
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$i 
! 


$i 
! 


BALSETCNT 


Require: MAXPROCESSCNT, VIRTUALPAGECNT, SRP*, IRP*, LRP*, NPAGEDYN 
+eeeeesees 


Use a stepwise Linear function of MAXPROCESSCN f 
MAXPROCESSCNT up to 50 and 30% of the number over 50. 

Then Limit that result by requiring that 100 pages of physical 
memory be available for each balance set slot after system 
oman | usage has been accounted for. We use the following 
equation to define this Limit: 


Physical memory - system use - process use > BSC * 100 


MEMSIZE = (NPAGEDYN/512 + (iRPSIZE * iRPCOUNT)/512) 
= (BSC * (VPC/128))/128 > BSC * 100 


We also impose a minimum of 10. 


temp = (90 * maxprocesscnt) / 100 
IF maxprocesscnt .GT. 50 THEN temp = 45 + (30 * (maxprocesscnt - 50)) / 100 


temp! = ((srpsize * srpcount)+(irpsize * irpcount)+(lrpsize * Lrpcount)) / 512 
temp! = (memsize - mpogedyn/ Ste = temp!) / (100 + (virtualpagecnt / (128*128))) 
IF temp! .LT. peep THEN temp = temp! 

IF temp .LT. 10 THEN temp = 10 


IF FSTYPE(balsetcnt) .EQS. ‘"* THEN balsetcnt = temp 
IF FSTYPE(add_balsetcnt) .NES. ‘"’ THEN balsetcnt = balsetcnt + add_balsetcnt 


BALSETCNT = Number of balance set slots in the systee Fer aGt of 
- ° 


ee | 
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$! 
s; Setting of the ACP parameters 
$i Require: MAXPROCESSCNT, BALSETCNT 
epeeteansens 
' 
$i ACP JOA - Enables or disables the default creation of a separate 
$! disk ACP for each volume mounted on a different device type. 
sj By default, disable mulitple ACPs. 
$ IF est ves (eco. multiple) .E€QS. we. acp_multiple = 0 
$ IF FSTYPE(add_acp_ multiple) . NES. 
THEN ae. multiple = acp_ multiple + add_acp_multiple 
eau 
$i ACP_DIRCACHE = Number of pages for oe directory blocks. Set 
$ two pages per balance set slot, with a minimum of 20 overall. 
temp = rs, - 2 
IF tem one LT. HEN temp = 20 
IF FST eitate Rimmel EQS. os oe acp_dircache = temp 
IF FSTYPE(add_acp_dircache) .NES. 
seearaeenn dircache = acp_ dircache + add_acp_dircache 


ACP_DINDXCACHE = Number of pages for caching directory indices. 
Use 1/4 of ACP_DIRCACHE. 


“IF FSTYPE(acp_dindxcache) .EQS. ‘"* THEN ace. dindxcache = acp_dircache/4 
IF FSTYPE(add_acp_ dindxcache) .NES. '"' 


THEN acp_dindxcache = acp. dindxceche + add_acp_dindxcache 
Leeeeeeeees 


ACP_HDRCACHE = Number of pages for ree file header blocks. Set 
two pages per balance set slot, with a minimum of 20 overall. 


temp = oe ts * 2 

IF temp .LT. THEN temp = 20 

IF 44 1 akan Bape hs, "EQS. “ THEN acp_hdrcache = temp 
IF FSTYPE(add_acp_ hdrcache) .NES. 

seeseetmene™ hdrcache = acp_ hdrcache + add _acp_hdrcache 


ACP_MAPCACHE = Number of pages for caching bit map blocks. 
Set two per disk, with a minimum of 8 overall. 
Don't let it get larger than ACP -HDRCACHE. 


‘temp = * 2 

IF temp at ‘5 THEN tonp © 

IF t T. acp_hdrcache THEN, ten = acp_hdrcache 

IF FS TYPE Cacp -mapcache) .€QS. ‘"' T HEN acp_ ~mapcache = temp 
IF FSTYPE(add-acp_mapcache) .NES. 


THEN acp_mapcache = acp_ mapcache + add_acp_mapcache 
[ete eeeeee 


ACP_QUOCACHE = Number of quota file entries cached. Set one entry 
per process. 
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caw Be 
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FSTYPE(acp_quocache) .EQS. °"’ THEN acp_quocache = maxprocesscnt 
FSTYPE(add_acp_quocache) .NES. 
THEN acp_quocache = acp_quocache + add_acp_quocache 
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Sl eeeeeeeees 
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$i ACP_SYSACC =_Number of directory FCBs to cache for disks mounted 
' /SYSTEM. Set BALSETCNT/NUM_DISK since we expect an even 
load across all system disks. Use a minimum of 4 overall. 


balsetcnt / 
P 


num_disk 
LT. 4 THEN ~ = 4 
ECacp_sysacc) .EQS. ‘"' THEN acp_sysacc = temp 
E(add_acp_sysacc) .NES. ° 

EN acp_sysacc = acp_sysacc + add_acp_sysacc 


ACP_SWAPFLGS = Enable or disables swapping ¥ four oe of ACPs 
(/SYSTEM = 0, /GROUP = 1, private = 2, mag tape = 3). 
By default, allow swapping for all four classes. If we 
have more than 1 Mb of memory, then disable swapping for 
aysten disks. If we have exactly 1 Mb of eenory, then 
disable swapping for system disks only if the BALSETCNT 
is greater than 14. 


= 15 
mens {ze GT. 9h} THEN tone = 14 
memsize .£Q. 2048 .AND. balsetcnt .GT. 24 THEN temp = 14 
FSTYPE(acp_swapflgs) .EQS. ‘"’ THEN acp_swapflgs = temp 
FSTYPE(add_acp_swapfigs) .NES. - 
THEN acp_swapflgs = acp_swapflgs + add_acp_swapflgs 
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! 

$! PAGEDYN 

$ Require: NPAGEDYN, ACP_DIRCACHE, ACP_MAPCACHE, ACP_HDRCACHE, BALSETCNT 


Sl eeeeeeeeese 
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$! PAGEDYN - aeer of paged éynanic — in bytes. Major consumers are 

$! glo obal section Sener) tor aprermet ion for /OPEN and 7HEADER 
$! nown files, known file List head info, ACL data, and 

$i shared logical name LA Use 1/4 of NPAGEDYN up to 100,000 
$! and 1/6 of the remainder. Note that this magic ca culation 
$! can simply be viewed as a convenient load factoring equation 
3; that comes up with reasonable results. 

$! Add in 2 ¢ peogs per process to help offset the overhead 

3; incurred by job logical name tables. 

$! Add in a factor to take XQP caching into account and don't 

+ let PAGEDYN get smaller than 80000. 

$ temp = npage whe 

$ IF npagedyn .GT. 160000 THEN y toe. = 25000 + ((npagedyn - 100000) / 6) 

$ temp = tore + (balsetcnt * 

$ temp! = (512 * Cacp_ iescke + acp _mapcache + acp_hdrcache)) * 11)/10 

$ IF acp te eo con “0 THEN tempi = 3 * temp! 

$ temp = gy dy eae! 

$ IF temp 8000 = temp = 80000 

$ IF FST PE (pa edyn) . THEN pe gers = temp 

:! IF FSTYPE(ad poets “NES. '"’ THE pagedyn = * snpndyn + add_pagedyn 


eee ec LOO-D 


nm“ 
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' 
$! Paging parameters. 
$: Require: GBLPAGES, PAGEDYN 


Gleeeeseeese 
' 


$! WSMAX = Max number of pages for any working set. Use one quarter 

of gox* teat memory, rounded off to the nearest 100 and bounded 
by 00 and 65000 (size must fit in a word for SYSBOOT). 
The result should leave plenty of space for the system. 


temp = (((memsize / 4) + 50) / 100) * 100 

IF temp .LT. 5 THEN temp = 300 

IF tenp -GT. 65000 THEN kemp = 65000 

IF FSTYPE(wsmax) .EQS. " THEN wsmax = temp 

IF FSTYPE(add_wsmax) .NES. THEN wsmax = wsmax + add_wsmax 
$OOoeeeeee 


SPTREQ = Number of system page table entries required for mapping 
the following system images and data structures. 


Cee ee ee ee 


SYS.EXE 305 
RMS .EXE 199 
SYSMSG.EXE 250 
1/0 DATA STRCUTURES about 130 
LOAD 0 
8NN SPECIFIC CODE 86 
temp = 305 + 199 + 250 + 130 + 50 
If Sout ype -EQ. 6 THEN temp = temp + 86 
IF FSTYPE(sptreq) .EQS. ‘"* THEN aeeres = temp 
IF FSTYPE(add_sptreq) .NES. ‘"' THEN sptreq = sptreq + add_sptreq 
Seeeeeeeees 


SYSMWCNT = Quota for the size of the system working set. Allow one 
one page for every 128 paves pages, 1/3 of a page for every 
required system page table page. and 1/2 of a page for every 
page required for paged pool. Do not let the system manager 
choose a value smaller than this. 
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temp = {gblpages / 128) + (sptreq / 3) + (pagedyn / (512 * 2)) 
IF FSTYPE(sysmwcnt) .£QS. ‘"" THEN sysmwcnt = temp 
IF FSTYPE(add_sysmwcnt) .NES. *“* THEN sysmwcnt = sysmwent + add_sysmwcnt 
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' 
$: Page fault parameters. 
3; Require: Nothing 


Sieeeeeseses 
' 


$i PFRATL = Page fault rate below which a working set Limit is 
: automatically decreased. Set to zero to allow work set 
adjustments to always work automatically. 


FSTYPE(pfratl) .EQS. ce TRY pirat = 0 


F 
F FSTYPE(add_pfratl) .NES. EN pfratl = pfratl + add_pfratl 
$4Oooeee 


el 


PFCDEFAULT = After a page fault, number of images pages read from 
isk, per 1/0. Should not be less than 16. Set the 
value based on relative system disk speed (1,2,4) so that 
- we OM iy in a lot of potentially useless pages on 
slow disks. 


ce te ee ee) ee 
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= 16 
*“" THEN pfcdefault = temp 
dd_pfcdefault) .NES. ‘'"’ - 

default = pfcdefault + add_pfcdefault 
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$! 
e; Free page List parameters. 
$! Require: BALSETCNT, MEMSIZE 


$! 

“1 rar sperms: 

$i FREELIM - Min number of pages that must be on the free page List. 
sj Use BALSETCNT, but stay between 16 and 64. 


cnt 
64 THEN temp = 64 


16 THEN temp = 16 
gh THEN freelim = tem 


eelim) .EQ p 
d_freelim) .NES. THEN freelim = freelim + add_freelim 


a a+ « 


FREEGOAL = Number of pages to try and keep on the free page List. 
4 eerie ot * FREELIM and 1% of MEMSIZE. Must be greater 
an ° 


re te 


. temp] THEN t = temp! 
STYPE(freegoal) .EQS. °"* THEN freegoal = temp 
STYPE(add freegoal) .NES. *"’ THEN freegoal = freegoal + add_freegoal 
reegoal -CT. freelim THEN freegoal = freelim 
++ 


GROWLIM - Number of pages that must be on the free page list before a 
rocess that is above quota can add a page to its working set. 
se FREEGOAL - 1 so that working set can be increased at every 

opportunity. 


FSTYPE(growlim) .EQS. oe tn growl Se = freegoal - 1 


IF 
IF FSTYPE(add_growlim) .NES. ‘"’ THEN growlim = growlim + add_growlim 
Fete eeeee 


BORROWLIM - Min. number of pages that must be on the free page list 
before the system wil perars a@ process to grow past WSQUOTA 
for that process. Should always be greater than FREELIM. 


——eme mmm 


= 300 

STYPE(borrowlim) .EQS. °"* THEN borrowlim = temp , 
F FSTYPE(add_borrowlim) .NES. ‘“’ THEN borrowlim = borrowlim + add_borrowlim 
F borrowlim .LT. freelim THEN borrowlim = freelim + 100 
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' 
ei; Modified page List parameters. 
$! Require: BALSETCNT, MEMSIZE 


Gi sseesesese 
! 


$! MPW_LOLIMIT = Lower Limit for the number of pages on the modified 
: page List. Use 3 * BALSETCNT, but no more than 120. 
temp = balsetcnt * 3 
IF i GT. 120 THEN tenp = 120 
IF FSTYPE(mpw_lolimit) .EQS. °"’ THEN mpw_lolimit = temp 
IF Peryve Codd pew Lolimit) MGS; oe 
THEN mpw_lOLimit = mpw_lolimit + add_mpw_lolimit 
1eeeeeeseoe 
' 
: MPW_HILIMIT = Upper Limit for the number of pages on the modified 
: page List. Use maximum of 500 and 2% of MEMSIZE. 
temp = memsize/50 
IF rene -LT. 500 THEN tone = 500 
IF FSTYPE(mpw hilimit) EQS. °"' THEN mpwhilimit = temp 
IF FSTYPE(add eee hilimit) .NES, ‘"' = 
THEN mpw_hTLimTt = mpw_hilimit + add_mpw_hilimit 
(eeeeeeeeee 


MPW_WAITLIMIT = Number of pages on fhe modified page List that will 
cause a process to wait until the next time the modified 
page writer writes the modified page list. Make sure that 

WAITLIMIT is greater than or equal to it so that a 
system deadlock does not occur. 


IF FSTYPE(mpw_waitlimit) ,€QS. °"" THEN mpw_waitlimit = mpw_hilimit 
IF FSTYPE(add_mpw_waitlimit) .NES. ‘"' - 
IF 


THEN mow wait Tmit = mpwwaitlimit + add_mpw_waitlimit 
mpw_waitTimit .LT. mpw_hTlimit THEN mpw_waitlimit = mpw_hilimit 
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$! sundebesensectenanenseessestusenennennsdbinbudedeeenseesennienstortnné 

$! Lock manager parameters. | 

3; Require: MAXPROCESSCNT, ACP_DIRCACHE, ACP_HDRCACHE 

$i uit *suppere’ both COcKIDYat and Lf COEKIDIBL MAK comfortably, We then 


$! set Lock TO TBL potentially low, LOCKIDTBL_MAX potentially high, and 
$! let the automatic adjustments A. +: everything work smoothly. 


$! 
Sisesesesece 
$! 
$! LOCKIDTBL = Number of entries in the Syston lock id table. 
$! Must be one for each lock in the system. Assume five 
$! per recess. In addition, in a cluster, add in enough 
$! for XQP cac hing plus about 150 for installed images and 
3; the job controller. 
$ temp = maxprocesscnt * 5 
$ temp! = (acp_ fircacheré + acp_hdrcache) 
S$ IF acp_aultiple e ~ - 0 a N temp] = 3 * Pd 
$ IF cluster THEN temp = Pp, + THEN. Lo 150 
$ IF FSTYPECLockidtbl) .EQ as” *"" THEN Lockidtbl = 
$ IF FSTYPE(add_lockidtbl) .NES. ‘"* THEN lockidtbl” . Plockidtbt + add_lockidtbl 
Si +eeeeeeeese 
$! 
$! oe, MAX = Max. number of entries in the system lock id table. 
. Set to 8 * LOCKIDTBL. 
$t = lLockidtbl * 8 : 
$ IF FSTYPECLockidtbl_max) “EQS. - THEN lLockidtbl_max = temp 
$ IF teen Toott lLockidtbl_max) .NES. 
THEN Lockidtbl_max =" lockidtbl_max : add_lockidtbl_max 

Sleeeesesese 
£: 
$! RESHASHTBL = Number of entries in the lock management resource 
$! name table. Pick a number that will allow LOCKIDTBL to 
$! row comfortably towards LOCKIDTBL_MAX and round up or 
i own to neerest power cf two. 
$ oldt =2 
Soenperans40: 
$ temp = oldt * 2 
: Pn “. ockidtbl THEN GOTO genparams50 

° 
$ GOTO gen ae 
$ SOTO genpar 
$ IF Coldtemp + temp) .GE. (lockidtbl * 2) THEN = Ps 
$ IF FSTYPE(reshasntbl) .€0S. THEN reshashtbl = 
$ IF FSTYPE(add_ reshashtbl) .NES. ° 

THEN reshasShtbl = reshashtbl + add_reshashtbl 


—_ 


(AtAre@ tAtAne tAthre 


Ata 


pesgnadesneeboubensesnseubeososesnseonssbbeobonesbeoensoesesoroonnectses 3; 
' . 
$! Miscellaneous parameters. 3 
$! Require: MAKPROCESSCNT $9 
| nm : ' 
$! MAXBUF - Rex tave aap ize of buffered 1/0 transfer. Should be at : 
.; least 4 
If FSTYPECoLd maxbut) EQS. '*" THEN old maxbuf = 0 $j 
|$ IF FSTYPE(maxBuf) .NES. '** THEN old maxbu $i 
If FSTYP imexbut) "EOS. ‘** THEN maxBut = 1586 Sti 
if paxby old_maxbuf THEN maxbuf = old_maxbuf $9 
FF TYPE (a 4 “maxbuf) .NES. '"’ THEN maxbuf = maxbut + add _maxbuf $7 
loeeeeeeese 
i $ ( 
$ | 
if no old value was specifi $! 
IF FSTYPE(Longwait) ,£QS. °"" THEN Longwait = 30 
RA Longwait) -NES. *"* THEN Longwait = longwait + add_longwait 
+ 


PIXSCAN = Time before idle process priorities are boosted. 
Set to maxprocesscnt/10, but no less than 1. 


temp = wr oi ey 

IF t THEN 

IF FST PE (pixscan) Eas” Fal THEN pixscen = temp 

IF FSTYPE(add_pixscan) .NES. THEN pixscan = pixscan + add_pixscan 


APAPAAAHAHHAHAHHHHHHHHHHHHOU 


| 
| 
| 
| 
LONEUAST Hy peters swapper considers a process to be idle. 
} 


I 4 


' Create SYSSSYSTEM:SETPARAMS.DAT and put the definitions of all the 
Si calculated and propagated sysgen parameters into it. 


+ Start by calling sysgen to get all the possible parameter names. 
$ ON ERROR THEN GOTO common_outerr 

$ file = ‘SYS SYSTEM: AUTOGER. TMP 

$ RUN sysS$system $¥5 gen 

set/output= YS$SYS EM:AUTOGEN. TMP 

show/al 

show/special 


exit 

. = ERROR THEN GOTO common_err 

Hi Create the SETPARAMS.DAT sysgen data file. 
$ file = ‘SYSSSYSTEM:SETPARAMS.DAT" 


$ OPEN/WRITE/ER ROR=common_outerr setparams ‘file’ 
7 ,WRITE setparams ‘‘use default 


" 


Hi Write each sysgen parameter that we have calculated or are propagating 
+ of all possible parameter names. 


. = comme 


del 
$ file = “‘SYSSSYSTEM:AUTOGEN. TMP" 
$ OPEN/READ/ERROR=common_ inerr params ‘file‘ 


wperenegys 

RITE setparams ‘write current” 

WRITE setparams ‘write sys$system:autogen.par"’ 
aie setparams ‘‘exit’ 

0 


ces 


SE params 
SE he 


7, a S35 


PARPAGGA 
oOo£ 


$! a value for to the command procedure. Look in AUTOGEN.TMP for the List 


$ 

$genparams60: 

$ READ/END=genparams69 params record 

$ record = asp 4 racers Hn COMPRESS*') 

$ fe*e = FSEXTRACT(O,1 rece wins 

$ IF seep ee temp -GTS. ‘'Z'' THEN GOTO genparams60 

$ 7 FSE TRACTLO, 3 record) QS. ‘Parameter’’ THEN GOT genparams60 
% FE = ort rE MENT NT (0, ” Mat ord) 

$ if $TYP ns oe TOT HEN GOTO Wivrecord). 

$ IF FSLOCATECS in.record) NE. Bye 4(record) THEN GOTO genparams65 
$ WRITE setparams ‘set ‘',temp,'' temp' 

: GOTO genparams60 

Sgenparams65: en 

$ WRITE setparams ‘‘set ‘',temp,"' "',delim,'temp',delim 

: GOTO genparams60 

$! 

+ Terminate and close the SETPARAMS.DAT data file 


iammtgimnnned 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 


Pere 


z! 


: i Clean up extra files and exit. 


wen 


HEN. TO common err 
NE/USER sys$error nl:~ 
T 


yetoutput eA :aut 


bb eS 
er Tw 


s sSoutput EA AUTOGEN =1-END, * phase, 
genfiles 


ee 

nm 

oo == 
rommm 
a 
© 
7 
8 


PAAAAAAHAPPOOSL 


=F 


i Cleanup after errors and CTRL/Ys. 


arams 
CONTROL Y THEN En GoTo genparams_abort 


SE/NOLOG oh 
SE/NOLOG setparams 


E/NOLOG mages 
NE/USER sysSerror nl: 
tn! syesoutout nl: 
E 


4-4. Salata 
meen — 


sys$output 


~~ HRHOOO 


S555 


0 common_‘quit'90 


PRAAAHAPAAAHAGCSE 


put SAUrBeEicTdu A new version of SYSSSYSTEM:SETPARAMS.DAT has been created."’ 
sh to purge this file. 


phase has succesfully completed."’ 


ENPARAMS"' THEN GOTO common_exit 


Boutput HAUTOGEN=1-BADE| 
sys$outpu EAUTO EN-I-BADFILE, bed versions of SVSCR YETI SEPARA -DAT" 


MSIMAGES.DAT may ex 


sysSoutput - We Bitsy thar you delete all versions and start again." 


PMN 


a ee Geesae= 


PAHAAAAPAAAPAPMAPMAAMEYRKNKHMOYNOM 


g 


=. 


i A ed 
ed 


$ 
$ 
$ 
$ 
$ 
£ 
$ 
$ 
$ 
4 
% 
$ 
$ 
$! 
$ 


PARAM 
s3Ivu 
_ = es 


' 
' Module: GENIMAGES 


' Abstract: This procedure generates the base preter tee 
‘ is suppl 0g as input to the INSTALL utility. 
: which attributes to install an image with, t 
: trade-offs are made: 


inoge List which 
When determining 
he following 


$ 
$ 
$ 
$ 
; 
$! /OPEN = permanently resident directory information Gi “Ernetes 
$! sorestery search to locate image -- about 200 bytes of 
$! permanently resident memory for a window control block 
.; and a file control block 

$ 

$ 

% 

$ 

$ 

$ 


/HEADER = permanently resident image header seves one disk 1/0 
/ operation per file access -- approximately 1 page of 
; paged memory for the image header 


/SHARED = multi-user shared access to read-only and non-CRF 
' read/write sections is allowed -- global pages and 
: global sections, Further, the cose of global pages 
: and global sections is approximately as follows: 


Global pages - 1/128 global page table page/page, 
4 bytes of Permanent y resident system 
page table/128 gpt entries, each global 
page table page will probably get locked 
into the system working set 


: Global sections - 32 bytes of permanently resident 
global section descriptor/section 


$! Create a boolean symbol to install an image /OPEN /HEADER /SHARED 

$! if we expect to have several simultaneous users of the system, i.e., 

$! the MAXPROCESSCNT is greater than 25. The threshold is purposery set 
$! low so as to only catch ree small systems. In general, we want to 
si err on the side of overinstalling. 

Sgenimages: 

$ manyusers = . 
IF maxprocesscnt .GE. 25 THEN manyusers = '' /open /header /shared ' 


i Create the VASIMAGES.DAT data file. 
“ti 


file = *"SYSSMANAGER:VMSIMAGES.DAT"’ 
OPEN/WRITE/ERROR=common_outerr images ‘file’ 


PRAAARHMM 


as of 9/1/ 


ITE images ‘'sys$system: authorize 


i Install checkpoint images. 


SiteJNLe® WRITE images ‘'sys$system:chkpOstrt, 
Si*eJNLee WRITE images ‘‘sys$system:chkpistrt' 


PAAAAAAAAPHAAAAAPAAAAAAAAAAH AAA AAPA 


$i Install non-privileged executable images. 


WRITE images -pysgeyston:copy /open /header 
WRITE images ‘'sys$system:dc /open /header 
WRITE images ‘‘sys$system:delete /open /header 
WRITE images “sys$system:directory /open /header 
WRITE «images ‘'sys$system:edt /open /header 
WRITE images ‘'sys$system: rename /open /header 
WRITE images ‘‘sys$system:search /open /header 
WRITE images *'sys$system: type /open /header 
WRITE images ‘'sys$system:vmshelp /open /header 


i Install protected shareable images. 


JNL*® WRITE images ‘'sys$share:chkpntshr /open 
TE images ‘‘sys$share:dbgssishr /open /header 


WRI 

WRITE images ‘‘sys$share:dismntshr /open /header 
WRITE images ‘‘sys$share:mountshr /open /header 
WRITE images ‘‘sys$share:secureshr /open /header 


Install non-protected shareable images. 


PAPRAA AAA A HF OF OF OF F&F OF HF OF OF OF OF OF &F OF OF OF WH 


WRITE images ‘‘sys$share:convshr" 

WRITE images ‘'sys$share:dcltables /open /header 
WRITE images ‘'sys$share:dcxshr /open /header 
WRITE images ‘‘sys$share:edtshr /open /header 


WR 

WRITE snenee sysSsystga: anal tndap /priv=(cmexec, 
‘ee JNLee WRITE images anit ereteni outs 

WRITE images ‘“‘sys$system:ini 

WRITE images ‘‘sys$system: install /priv=(cmkrnl 
WRITE images ‘'sys$system:request /prive(tmpmbx} 
WRITE images ‘‘sys$system:shwclstr /priv=(cmkrnl) 


L 4 


Install VAS images. The comment after each shared ig indicates the 
number of ,oe sections/number of global pages that 


he image required 


Install infrequently used privileged executable images. 
/priv=(cmkrnl)" 


cmkrnl)" 


A th pS gy ay 
/priv=(cmkrnl phy_io,sysprv) 


sysGbl .prmgbl, shmem)"” 


Install frequently used, load related, privileged executable images. 


WRITE images ‘'sys$system:mail '', manyusers, ‘'/priv=(sysprv,oper,world,netmbx) ' 2/116" 

WRITE images ‘'sys$system:phone’’, manyusers, ‘'/priv=(netmbx ,oper,,prmmbx ,world,sysnam) ! 1/30" 
,WRITE images ‘‘sys$system:rtpad", manyusers, /prive(tmpmbx5 ! 1/53"° 

: Install frequently used privileged executable images. 

WRITE images ‘‘sys$system:cdu /open /header /priv=(cmexec)"’ 

WRITE images ‘‘sys$system: loginout /open /header /shared /privetcmkrnt.tmpmbx.log_fo.sysprv.sysnan.al tort) ! 3/69" 
WRITE images ‘‘sys$system:monitor /open /header /priv=(cmkrnl)"’ 

WRITE images ‘‘sys$system:set /open /header /shared /priv=(cmkrnl,sysprv, tmpmbx) ' 1/99°" 
WRITE images ‘‘sys$system:setp0 /open /header /shared /priv=(cmkrnl,sysprv ! 2/7 
WRITE images ‘‘sys$system:show /open /header /shared /priv=(cmkrnl,netmbx,world) ! 743. 
WRITE images ‘‘sys$system: submit /open /header /shared /priv=(tmpmbx5 ' 1/18°° 


/priv=(cmexec,cmkrnl)"’ 
$i *eJNLee WRITE images ‘“‘sys$system:chkcancmd /priv=(sysprv.cmkrnl)" 


/shared 


Wn—w 


~ 
w 
zs 
@ 
7 
e 
a 
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/shared 


/header /shared /protect 
/shared /protect : 
/shared /protect /nopurge : 
/shared /protect |! 3/5” 
/shared /protect ! 4/22 


/shared ! 1/93 ‘~ 
/shared Blaim 
/shared ' 1/141" 
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Sos 


a 
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oO 


PAR HF A OF OF OF OF OF 
Se 


PRAM 


E . aia 


nimages10: 

IF .NOT. decnet THEN GOTO genimages20 
ARITE images ‘'sys$system: fal 

WRITE images ‘'sys$system:netserver 
WRITE images ‘‘sys$share:nmlshr 


neon e 


/header 
/header 


/header 
/header 
/header 


/header 


/header 


/header 
/header 


/header"' 


/header'' 
/header 
/header 
/header 


/shared 
/shared 


/shared 
/shared 
/shared 


/shared 


/shared 


/shared 
/shared 


/header /shared 
/header /shared 
/header /shared 
/header 


/shared 
/header"’ 


$ WRITE images ‘'sys$share:fdishr’’ 

$ WRITE images ‘'sys$share:lbrshr /open 
$ WRITE images ‘'sys$share:librtl /open 
$ WRITE images ‘'sys$share:librtl2 

$ WRITE images ‘'sys$share:mthrtl /open 
$ WRITE images ‘'sys$share:scrshr /open 
$ WRITE images ‘'sys$share:smgshr /open 
$ WRITE images ‘'sys$share:sortshr 

g ete images ‘‘sys$share:vmsrtl /open 
+ Install shareable message images. 
Si*eJNLe* WRITE images nt meget ofp! ee 
Si**JNLe* WRITE images ‘‘sys$message:chkpntmsg 
$ WRITE images ‘‘sysSmessage:cliutimsg  /open 
$ WRITE images Bystaessege:dbgtbknsg, 

$ WRITE images ‘'sys$message: filmntmsg’’ 

$ WRITE images ‘'sys$message:netwrkmsg 

$ WRITE images ‘'sys$message:orgdevmsg /open 
$ WRITE images ‘‘sys$message:shrimgmsg /open 
B Waite images ‘‘sys$message:sysmgtmsg'’ 

+ Install required Language support images. 
$ WRITE images ‘'sys$share:basrtl /open 
$ WRITE images ‘'sys$share:basrtl2' 

$ WRITE images ‘‘sys$share:cobrtl /open 
$ WRITE images ‘'sys$share:forrtl /open 
$ WRITE images ‘‘sys$share:pasrtl /open 
$ WRITE images ‘'sys$share:plirtl | /open 
$ WRITE images ‘'sys$share:rpgrtl"’ 

$ WRITE images ‘'sys$message:pasmsg’’ 

$ WRITE images ‘‘sys$message:plimsg’ 

p waite images ‘‘sys$message:rpgmsg'’ 

ei Install these images only if we have lots of memory. 
$ IF memsize .LT. 4096 THEN GOTO genimages10 
$ WRITE images ‘‘sys$library:debug /open 
$ WRITE images ‘'sys$share:crfshr /open 
$ WRITE images ‘'sys$share: trace /open 
$ WRITE images ‘‘sys$share:sumshr /open 
sans images ‘’sys$system: Link /open 
si; Install these optional images only if DECnet will be in use. 


/open /header /shared 
/open /header /shared 
/open /header /shared 


2) 


~~ 


emia Oo 


o 
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meme mee 
i eee ee ee eee 


PAPPAPAAPH AAA APAARARARAAAAAAHAWM 


$' Write comments in the data file. 


$! 
+ 
$2 


enimages20: 
WRITE images ‘'! " 
: watt mages f This d dete f file is used to install VMS known images. This file MUST NOT 
WRITE images ‘': be modified 
$ WRITE images °' - 
$ WRITE images ''! Users wishing fo alter the list of installed snoges should remove and 
: et tt jnages -4 reinstall the image via the SYSTARTUP.COM mechanism. 
mages 
$ WRITE inoges "i The presence of a /NOPURGE qualifier on the Line indicates that the file’’ 
$ WRITE images ‘'! Should not be removed during the SHUTDOWN process.’ 
: WRITE images a 
$! 
+ Cleanup and return control to GENPARAMS 
$ CLOSE aes 
$ WRITE sys See me ""ZAUTOGEN~I-NEWF ILE, A new version of SYSSMANAGER: VMSIMAGES.DAT has been created." 
$ WRITE syeeey output ' You may wish to purge this file.’ 
$ SET PROTECTION=(system:rwed,owner:rwed,group,world) sys$manager: vmsimages.dat 
: GOTO genimages_return 


ee rae es 


oO 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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= 


$i++ 

$! 

i Module: GENFILES and TESTFILES 

$. Abstract: This rocedure enerates new paging, swapping, and dum 
$i ioe tor 8 syeten, the sit enspecitic “requirements tile 


ti 
SYS$SY YSTEM: PARAMS DA AT is input. f this operation are 


ie) 
SYSSSYSTEM: PAGEFILE. SYS, SUAPFILE. S¥e- ond SYSDUMP.DMP. 


$! 

$! 

$! 

$! If TESTFILES was specified as the end phase, then this 

i procedure displays its results instead of executing them. 
$' 


MUST be immediately preceded by execution of GENPARAMS. 


$i 
$i-- 
$! 

$! Initialize this phase. 
eetiee 


NFILES' 
ITEStF1Les" THEN phase 


> 
a 
w" 


$ @ 
~JS 
> 
—_e 
Mme 
@ 
. nw 
*3o 2° 
a 


eel TREN GOTO ¢ 
ene, “ZAUTOGER=1 1-BEGIN, 
‘creat ing’ 


1 wl e"* 
2 EQS. *“"TESTFILES’’ THEN verb = 
2 .EQS. “TESTFILES'’ THEN verb! 


alienate | ww 
“<< 
ba 


ONTROL_Y THEN yo ogee abort 


“TESTFILES' 
",phase,'’ phase is beginning." 


“would have created” 
“would have been" 


$: Set up symbol for single Line sysgen invocations 


$ SYSGEN = "$SYSGEN" 


¢ 3 


Paheytate PAGEFILE.SYS size. Allow 2000 blocks for the — and 
400 for each process. If this doesn't total to at least twice the 
; virtues page count, then use that number. 


emp = 2000 + (400 * maxprocesscnt) 
F temp .LT. (virtualpagecnt * 2) THEN temp = virtualpagecnt * 2 


If we have a pool system disk. then just use 4604 (+ 496 if we have 
more than 206 pages of memory). 

F 
F 


CPememeeuae 
ae 


smalldisk THEN temp = 4604 
smalldisk .AND. (memsize .GT. 2048) THEN temp = temp + 496 


If a particular pagefile size was specified by the user, then use that. 


“IF FSTYPE(pagefile) .£QS. ‘"’ then ag {ite = temp 
IF pagefile .EQ. 0 THEN GOTO genfiles 


If the current ay HY | size is between 100% and 126% of the size we've 
just calculated, then leave it alone. 


AAHMHHONE PAAAAPAPAAHAMKHNNM 


‘tem 

IF Poschgcncveyets syaten: :pagefile.sys’’) .EQS. ‘"’ THEN GOTO genfiles20 
temp = FSFILE RIBUTES("'Sys$system: pagetile. -Sys'','‘ALQ’’) 

IF (temp - (temp / 5 E. pagefile) .AND. (temp .GE. pagefile) - 


THEN GOTO centile 
i Output file creation message. 
files20: 


ITE sys$output *"ZAUTOGEN-I-PAGEFILE, ‘‘verb’ ‘"pegefile’ block page file." 
phase .EQS. ‘‘TESTFILES'’ THEN GOTO genfiles40 


- co 


n 

R 

F 

If there is not ag = room (after salting 1000 blocks away) for the 
| Capertee pagefile, then write out an error message. 

r 
fF 
ia 
e 


eeblocks = FSGETDVI("'sys$sysdevice'’,’ FREEBLOCKS'') 
(pagefile - temp) .GT. (freeblocks - 1000) THEN GOTO genfiles30 


ttempt to create the pagefile. If we didn't succeed, write out an 
rror message. 


" SYSGEN CREATE sys$system:pagefile.sys ‘sinee p. paetile e' 

IF PESEAREAC sys stem:pagefile.sys’’) .£QS. ©"" THEN GOTO genfiles30 
rene = FSFILE_ATTR BUTES(: 4 sSsysten: mipagetile.sys' » ALQ’’) 

IF “GE. pagefile THEN Goro” 

IF ee - (pagefile / 5)) E. —. THEN GOTO genfiles40 


Write out pagefile error. 
files30: 


PAAAHAAAAAAHAAGAAAAAPGAAAL PROG 


“Ss: 


gen 
WRITE es ""ZAUTOGEN-W-OPENOUT, error creating PAGEFILE.SYS. PAGEFILE.SYS needs"’ 

$ WRITE s Foutpyt to be created manually with ‘ ‘ pagefile,” blocks’ 

gare gentiles 0 

$i Write out informational message. 

$genfiles35: 

$ IF phase .NES. “‘TESTFILES’’ THEN GOTO genfiles40 a “ a 

Aerie E re "SAUTOGEN-I-PAGEFILE, No new page file ‘’,verb1,"’ created. 


ee] 


- 
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$! | 
$: Calculate SWAPFILE.SYS size. Allow 2000 blocks for the system and 
$: WSMAX (up to 300) for each process. 


$! 

ie 
S$ IF wsmax ¥ temp THEN temp = wsmax 

$ temp = 2006 + (temp * maxprocesscnt) 


! If we have a small system disk, then just use 1000. Also, change the 
' name of the file we will be creating to SWAPFILE1.SYS so that installation 
: of the swapping file will be deferred until after the ERRFMT, JOB_CONTROL, 
! and OPCOM processes have been initiated. That way, on small systems, there 
! is @ greater chance that the swapfile will be big enough to handle user 

processes. 


PAHMAHAON 


F smalldisk THEN temp = 1000 
pet les ” ee 
F smalldisk THEN oneflag = ‘1°’ 


-O- 


If a particular swapfile size was specified by the user, then use that. 
If the specified or calculated value was 100 or less, then don't bother 
creating the file. 


“IF FSTYPE(swapfile) .EQS. ‘'"’ THEN swapfile = temp 
IF swapfile .LT. 100 THEN GOTO genfiles65 


If the current swapfile size is between 100% and 120% of the size we've 
! just calculated, then leave it alone. 


PRAPAPPAAAAAARA AMA MHHHMWHM 


emp = FSFILE_ATTR PyITS*, presovetearquaet te enetlag’ «Sys "A 
F scene - (temp / 5)) .LE. swapfile) .AND. (temp .GE. 
THEN GOTO genfiles65 


i‘ Output file creation message. 


swapfile) - 


. | 
temp=0 
IF  FSSEARCH('s s$system:swapfile’'oneflag'.sys’’) .EQS. ‘"* THEN sore genfiles50O 
I 
| 


enfiles5s0: 
soeniie sysSoutput ‘‘ZAUTOGEN-I-SWAPFILE, ‘‘verb' ‘"swapfile’ block swap file."’ 
Fad phase .EQS. ‘‘TESTFILES*’ THEN GOTO genfiles70 
$' If there is not enough room (after salting 1000 blocks away) for the 
+ expanded swapfile, then write out an error message. 
$ freeblocks = FSGETDVI (“sys$sysdevice™, "FREEBLOCKS”) 
Ay (swapfile - temp) .GT. (freeblocks - 1000) THEN GOTO genfiles60 
$i Attempt to create the swapfile. If we didn't succeed, write out an 
3; error message. 
$ SYSGEN CREATE sysSsystem:swapfile’oneflag’.sys /SIZE="swapfile' | 
$ IF ha rig TT AA eT me -EQS. THEN GOTO genfiles60 
$ temp = FSFILE_ATTRIBUTES(''sysS$system:swapfile’‘oneflag’.sys''’,’ALQ'’) 
$ IF temp .GE. Swapfile THEN Goro enfiles70 
Fad (swapfile - (swapfile / 5)) .LE. temp THEN GOTO genfiles70 
$! Write out swapfile error. 
$genfiles60: ee ee oe ee ee | 
$ WRITE sys$output ‘"ZAUTOGEN-W-OPENOUT, error creating SWAPFILE*’,oneflag,'’.SYS. SWAPFILE’’,oneflag,’’.SYS needs | 
$ WRITE sys$out yt a to be created manually with »swapfile, blocks 
$ GOTO genfiles 
| 


$! 

Ei Write out informational message. 
$gentiles6s: 

$ If phase NES. ha LES'’ THEN GOTO genfiies70 

; WRITE sys$output AUTOGEN-I-SWAPFILE, No new swap file ‘’,verb1,"' created." 

4 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
4 
$ 
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$! 
$! Calculate SYSDUMP.DMP size. Make it four blocks larger than the size 
3: of physical memory. 


$! 
$Sgenfiles70: 
$ temp = memsize + 4 


$' If we have a small system disk, and the user did not explicitly request 
$: the creation of a dumpfile, then don't create one. 


iF smalldisk .AND. (FSTYPE(dumpfile) .EQS. ‘'"") THEN GOTO genfiles95 


$' Ife particular dumpfile size was epge tree by the user, then use that. 
$! If the specified size was less than 3, then don't bother creating the file. 


$! 
IF eetveg amet tte) EQS. *"* THEN funptile = temp 
If dumpfile .LT. 3 THEN GOTO genfiles95 


] if the current dumpfile size is greater than or equal to the size we've 
ust calculated, then leave it alone. 


“temp=0 
IF FSSEARCHC''sye8s stem:sysdump.dmp'’) .£QS. ‘"’ THEN GOTO genfiles80 
fone = FSFILE_ATTRIBUTES("'sys$system:sysdump.dmp'',''ALQ'') 


s 
F temp .GE. dumpfile THEN boro genfiles95 
i Qutput file creation message. 


PAAPAAPAPAARHAAEKSE 
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files80: 

RITE sys$output “"ZAUTOGEN-I-DUMPFILE, ‘‘verb’® ‘‘dumpfile’ block dump file." 
F phase .EQS. ‘‘TESTFILES’’ THEN GOTO genfiles100 
I 
© 


f there is not enough room (after salting 1000 blocks away) for the 
xpanded dumpfile, then write out an error message. 


‘freeblocks = FSGETDVI("'sys$sysdevice’’, "FREEBLOCKS"’) 
IF (dumpfile - temp) .GT. (freeblocks - 1000) THEN GOTO genfiles90 


! Attempt to create the dumpfile. If we didn't succeed, write out an 
error message. 


SYSGEN CREATE sys$system:sysdump.dmp /SIZE="dumpfile' 

IF hag {ie stem:sysdump.dmp') .EQS. °"’ THEN GOTO genfiles90 
temp = FSFILE_ATTR Pees a Earavocenisysdune.dap . ALG") 

IF temp .GE. Gumpfile THEN GOTO genfiles100 


Write out dumpfile error. 


files90: 
ITE sys$output ‘“ZAUTOGEN-W-OPENOUT, error creating SYSDUMP.DMP. = SYSDUMP.DMP needs" 
ire syetput ue ne to be created manually with ‘',dumpfile,"’ blocks 

genfiles 


Write out informational message. 
enfiles95: 


IF phase .NES. “TESTFILES*’ THEN GOTO genfiles100 ; a - 
WRITE sys$output ““ZAUTOGEN-I-DUMPFILE, No new dump file ‘',verb1,"’ created. 
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$! 
$: Set the correct file attributes on the created files. 


$! 

Sgenfile : , 

$ If phase .£QS. ‘‘TESTFILES’’ THEN GOTO genfiles tloenup 

$ SET PROT=(S:RWED,O:RWED,G,W) sys ysten:pagett e.Sys;* 

: SET FILE /NOBACKUP sysS$system:pagefile.sys 

$ If FESe Anca oxssevetent quantile, sys -EQS. *"' THEN GOTO genfiles110 

$ SET PROT=(S:RWED,O:RWED,G,W eyetereren: euepitie.syss* 

: SET FILE /NOBACKUP sysS$system:swapfile.sys 

$genfiles110: 

$ If hem RY ae LOE ee gre, bed Ba iL -EQS. *"* THEN GOTO genfiles120 

$ SET PROT=(S:RWED,O:RWED,G,W sysSeyeten:suaptilel.sys;* 

: SET FILE /NOBACKUP sys$system:swapfilel.sys 

Sgenfiles120: 

$ IF hem RY ye EA itn pent al -EQS. ‘"' THEN GOTO genfiles_cleanup 
SET PROT=(S:RWED,O:RWED,G,W) sysSsystem:sysdump.dmp; « 
SET FILE /NOBACKUP sys$system:sysdump.dmp 
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i Clean up and exit. 


test { {les fleanu: 
IFRROR THEN GOTO ¢ 


Te 
Qrvecece 


wr 
o=-58 


S. "GENFILES'' THEN GOTO common_exit 
3 S. ““TESTFILES'’ THEN GOTO common_exit 
TO setparams 


{| Cleanup after errors and CTRL/Ys. 
files abort: 

iles_abort 

CONTROL Y THEN Ba genfiles_abort 


ERROR TREN CON 
TO common_‘quit'90 
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we 


o5 syskout, ut we aGTOGeR® ERs1 I-END, * *,phase,"’ phase has succesfully completed." 
-EQ 


ee. eee 


Glee 
' 
Hi Module: SETPARAMS, REBOOT, and SHUTDOWN 
$ Abstract: Prepares the system to reboot with the new parameters. 
$i-- 
$! 
$: Initialize this phase. 


$reboot: 
ee teens 


4% S SeLETEySimmo. ocaL /aLt 


$pi= PELAGIC. L C“AUTOGENSP1"*) 
$ paere = ss / a 
$ i +e) EQs. "REBOOT > .OR. (pl .EQS. “SHUTDOWN"') - 
THEN. Tabu y = 
$ ON CON Y THE Goro common_abort 
$ ON ERROR T REN GOTO common_err” 
$ B¢ = FSLOGICAL("'AUTOGENSP2'') 
+7 p = FSLOGICAL C‘AUTOGENSP3"") 
; F phase .NES. ‘‘SETPARAMS'’ THEN GOTO end20 
} 3 
+ Execute the SETPARAMS command procedure. 
$ WRITE pystou tput Man depron ty mee 8 phese. is Ro ped 
$ IF FSSE Sout xAUTOC potgor ese .¢ 
$ WRITE sys$output UTOGEN- “OPENIN. tsitriten: :SETBARARS. DAT could not be found." 
$ WRITE sysSoutput * Please ensure that the GENPARAMS phase successfully completes 
$ WRITE sysS$output ' before executing the ‘'.phase,'’ phase." 
: GOTO common_err 
ZOnetes 
$ DEFINE/USER SYSSINPUT sys$system:setparams.dat 
: RUN sys$system:sysgen 


f the specified ending point was SETPARAMS, then we are all done. 


I 
setparams_ clean 
ERROR” THEN 
TE peek TOS ZAUTOGER1-END **,phase,’’ phase has succesfully completed."’ 
pe .EQS. ‘‘SETPARAMS*’ THEN GOTO common_exit 
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i Execute REBOOT or SHUTDOWN phase. 


$end20: 
$ paper = ee ws 
She sys soutput “"ZAUTOGEN-I-BEGIN, "',phase,"’ phase is ae 
sys u 
$ WRITE se “The system is shutting down to allow ~~ ¥ systes to boot with the"’ 
; WRITE sys$output ‘generated site-specific parameters and nstatled mages. 
; WRITE sysSoutput ‘ 
$! 
+ If SHUTDOWN was specified, then require a manual reboot. 
$ IF p2 .EQS. ‘*REBOOT’’ THEN GOTO boot10 
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reboot fla “_" 
pt be sysSoutput “You must manually reboot the system after it halts." 
GLIO boot2 
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f REBOOT was specified, then automatically reboot. 


reboot lag = m1 
WRITE ae te tput ‘The system will sytonet ically reboot after the shutdown and the 
re BH te ats oe “upgrade to VAX/VMS Version 4.0 will be complete." 

sysSoutput 


Shutdown the system. 


! 

i 

! 

‘ Pi Number of minutes until final shutdown. 
‘ P Reason for shutdown. 

‘ P Should the disk volumes be spun down? 

' PG Should SY SHUTDWN. COM be invo 

‘ PS Time when system will be rebooted 

i PG Should system be reboot ed sutonat icalty? 
: P Comma-separated List o syver Leget 
' keywords: REBOOT Check ck TER” SHuTDO N, 
REMOVE _NODE, and NONE 


boot20: 
IF FSTYPE(shutdown_time) .EQS. stare shutdown_time = 0 ; 
@sys$system: Shutdown "shutdown ne “Reboot syStem with AUTOGENerated parameters’ ''N’' - 
“Y"' "soon"* ‘reboot flag’ SRESOOT CHECK" 
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ej Clean up extra files and exit. 


$ WRITE OR THEN 60 MEAUTOGERS1 T-END, **,phase,'’ phase has succesfully completed."' 
GOTO common_exit 


Hi Cleanup after errors and CTRL/Ys. 


Ssetparams_ pbort:s 
shu a Sbort 

oheur 

ON C CORTROL THEN GOTO reboot_abort 
ON ERROR TREN CONTINUE 

GOTO common_ vauit: 
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